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41 

42 HISTORY 

43 

44 

45 NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTIC PART 'A* WERE 

46 FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE M/44. 
47 

48 THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 

49 TO MAKE THE '8' VERSION COVER THE 11/44: 
50 

51 1. TEST 22 - PROCESSOR LOOKS TO SEE IF APT IS CON- 

52 TROLLING THE TEST. AND IF IT IS. CHECKS TO SEE 

53 IF THE USER HAS SELECTED THIS TEST BY CHECKING 

54 BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 

55 CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 

56 SELECT THE TEST. 
57 

58 THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POiNT DIAGNOSTIC 

59 TO MAKE THE 'C VERSION COVER THE 11/44: 
60 

61 1. TEST 76 - CHECKS THAT FP PROCESSOR DOESN'T ACCESS 

62 D-SPACE UNTIL CONDITIONS WARRANT. 
63 

64 2. TEST 77 TO 106 - CHECKS THAT SRI MATCHES WHAT 

65 ACTUALLY HAPPENED TO THE REGISTER OF THE INSTRUC- 

66 TION. AND THAT THE VALUE OF AUTO INCREMENT/ 

67 DECREMENT WAS PROPER. 
68 

69 THE FOLLOWING WAS ADDED TO THE 'C* VERSION TO FURTHER INTENSIFY 

70 THE TEST: 
71 

72 1. TEST 77 - A BYTE TABLE OF EXPECTED DATA FOR SRI 

73 CHECKS TO MAKE SURE THAT THE VALUE OF THE INCRE- 

74 NENT/DECREMENT IS PROPER FOR THAT INSTRUCTION. 

75 

76 ALL THREE PARTS WERE RE-RELEASED WITH A NEW SYSMAC THAT CHECKS BIT 0 OF THE CPU 

77 ERROR REGISTER (POWER MONITOR BIT). THE ADDITIONS WERE MADE IN THE SCOPE 

78 ROUTINE. EXECUTED AT THE BEGINNING OF EACH TEST, AND THE ERROR CALL ROUTINE. 

79 IF THE BIT BECOMES SET, AN ERROR IS CALLED FROM THE SCOPE ROUTINE. THE BIT IS 

80 CLEARED. AND THE TEST IS CONTINUED. IF THE BIT BECOMES SET IN THE MIDDLE OF A 

81 TEST. AND AN ERROR OCCURS FOR ANY REASON, THE ERROR ROUTINE WILL CALL *TWO* 

82 ERRORS, THE POWER MONITOR BIT ERROR FIRST. THEN THE ERROR ORIGINALLY CALLED. 

83 IN ADDITION. THE SREAD ROUTINE NOW CHECKS FOR A RANDOMLY INPUTED *Q BEFORE A 

84 *S IS TYPED. THIS BECAME NECESSARY WITH CERTAIN DATA CONNECTIONS OF SOME SYS- 

85 TEMS. 
86 

87 THE FOLLOWING WAS ADDED TO THE 'D' VERSION: (LABELED BY ':DPM002' IN COMMENTS) 

sis 

89 IN TEST 74 (TESTING 'STEXP'). IN EACH LOCATION WHERE THE CODE GOES TO CHECK 

90 THE 'STEXP' INSTRUCTION IN THE SUBROUTINE. IT NOW DOES THAT SECTION 3 TIMES 

91 IN ORDER TO CHECK THE ADDITIONAL MODES 2 AND 4 (AUTO INCREMENT/DECREMENT). 

92 A TABLE WAS ADDED CONSISTING OF THREE 3-WORD DATA GROUPS. THE FIRST AND LAST 

93 GROUPS PROVIDE THE DATA TO LOAD AND CHECK THE PROPER PRE AND POST VALUES 

94 RESPECTIVELY OF RO USED IN EXECUTING THE INSTRUCTION. THE SECOND GROUP IS 

95 THE OP CODES OF THE THREE MODES OF THE INSTRUCTION. THE 'STEXP' OP CODE IS 

96 PLACED IN THE FLOW JUST BEFORE EXECUTION. 
97 
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Oft IN TESTS 76 THROUGH 1U, LOOP ON ERROR ADDRESS LOAD TO $LPERR WAS ADDED JUST 

99 BEFORE EACH TEST INSTRUCTION. 

10? IN THE END-OF-PASS SECTION, THE EOP MESSAGE IS PRINTED EVERY 1000 PASSES 

102 BECAUSE EXECUTION TIME PER PASS IS SO SHORT. 

]qI in the JTYPOCS ROUTINE, IT NO LONGER PRINTS SPACE CHARACTERS AHEAD OF NON- 
105 ZERO DIGITS. 
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158 1. ABSTRACT 

159 

160 

161 THE THREE PROGRAMS: 

163 CKFPACO CKFPB80 CKFPCDO 

165 ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 

166 PDP 11/44 FP11-F FLOATING POINT PROCESSOR. THF 

167 DESIGN IS AN ATTEMPT TO REACH ALL ROM STATES. TAKfc 

168 ALL BRANCH MICRO TESTS (BUT'S) AND VERIFY ALL THE 

169 LOGIC. THEY CONSIST OF 161 (OCT) INDIVIDUAL TESTS 

170 SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 

171 WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. THE 

172 TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 

173 DESCRIBED BELOW. 
174 

175 NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

176 UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 

177 RUN AND IN MOST CASE THAT THERE IS ONLY A SINGLE 

178 POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 

179 ARE NOT RUN IN ORDER THEN ERROR MESSAGES MAY NOT BE 

180 ACCURATE. 
181 

182 

183 A, CKFPACO 
184 

185 CKFPACO TESTS: 
186 

187 LDFPS 

188 SJFPS 

189 CFCC 

190 SETf, SETD. SETI AND SETL 

191 STST 

192 LDF AND LDD (ALL SOURCE MODES) 

193 STD (MODE 0 AND 1) 

194 ADDF. ADDO AND SUBD (MOST CONDITIONS) 
195 

196 6. CKFPB60 
197 

198 CKFP880 TESTS: 

199 ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 

200 TESTED IN CKFPACO) 

201 CMPD AND CMPF 

202 DIVD AND DIVF 

203 MULD AND MULF 

204 MODD AND MODF 
205 

206 C. CKFPCDO 
207 

208 CKFPCDO TESTS: 
209 

210 S1F AND STD (ALL MODES) 

211 STCFD AND STCDF 

212 CLRD AND CLRF 

213 NEGF AND NEGD 
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214 ABSF AND ABS 

215 TSTF AND TSTD 

216 NEGF, ABSF AND TSTF (ALL SOURCE MODES) 

217 NEGF, ABSF AND TSTF (ALL SOURCE MODES) 

218 LDFPS (ALL SOURCE MODFS) 

219 LDCIF AND LDCLF 

220 LDCID AND LDCLD 
111 LDEXP 

222 STFPS (ALL DESTINATION MODES) 

223 STCFL AND STCFI 

IIa stcdl and STCDI 

225 STEXP 

226 STST 

227 I AND D SPACE TESTS (ALL MODES AND REGS 0 AND 7) 

228 AUTO INCREMENT/DECREMENT CHECK - SRI (ALL MODES AND REGS 1 AND 7) 
229 

23? 2. REQUIREMENTS 

232 

234 2.1 EQUIPMENT 

235 A PDP 11/44 WITH CONSOLE AND AN FP11-F FLOATING 

236 POINT PROCESSOR. NOTE THAT A SPECIAL INTERRUPTS TE1T 

237 MODULE IS BEING DESIGNED FOR USE IN THE MANUFAl- 

238 TURING ENVIRONMENT. UHEN THIS DEVICE IS PRESENT THE 

239 PROGRAM CKFPB80 WILL MAKE USE OF IT TO TEST THE FPP 

240 INTERRUPT ON BUS REQUEST FUNCTIONS. 
241 

242 2.2 STORAGE 
243 

I44 ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 

245 LEAST 16K TO LOAD AND RUN. 

246 

247 2.3 PRELIMINARY PROGRAMS 
248 

I49 THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 

250 11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 

I5I IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOSTICS 

252 BEFORE THESE FP11-F DIAGNOSTICS. 
253 

255 3. LOADING PROCEDURE 

256 

258 THE PROGRAMS WILL BE SUPPLIED ON THE USUAL 

259 DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 

260 MANUAL FOR FURTHER INFORMATION. 

262 4. STARTING PROCEDURE 

263 

264 

265 4.1 CONTROL SWITCH SETTINGS 
266 

267 SEE SECTION 5.1 

269 4.2 PROGRAM AND OPERATOR ACTION 

270 
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271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

508 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 



5.1 



6. 
6.1 



1. LOAD PROGRAH INTO MEMORY 

3! SEt'^CONSOlPsUITCHES (IF CONSOLE IS PRESENT) 

4. PRESS START. 

ON FIRST PASS. THE PROGRAM 
UILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM UILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR^ THE 
SOFTWARE SWITCH REGISTER (SEE SECTION^ 8.5). 
OF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 
NOT APPLY 

5. THE PROGRAM WILL LOOP AND AN END OF PASS AND 
ERROR SUMMARY WILL BE TYPED AT THE END OF 
EVERY PASS. 

OPERATING PROCEDURE 



OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 



SW<15>=1... 
SW<14>=1... 
SW<13>=1... 
SW<12>=1... 
SW<11>=1... 
SW<10>=1... 

SU<9>=1 

SU<8>=1 

SW<7>=1 .... 



SU<7>=1 



OCTAL 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 

200 



200 



ERRORS 



HALT ON ERROR 
LOOP ON CURRENT TEST 
INHIBIT ERROR TYPE OUTS 
INHIBIT T-BIT TRAPPING 
INHIBIT ITERATIONS 
RING TTY BELL ON ERROR 
LOOP ON ERROR 

LOOP ON TEST SPECIFIED IN SW<6> 
THROUGH SW<0> 

PRINT ERROR SUMMARY EVEN 
SU<13>=1, THIS APPLIES ONLY 
PROGRAM CKFPACO. 

SELECT CORRECT INTERRUPT TEST 
PROGRAM CKFP8B0. 



IF 
TO 

IN 



6. 



SUMMARIES 

IN PROGRAM CKFPACO TESTS 1 AND 11 HAVE A SPECIAL 
ERROR S'.TWARY FEATURE. THESE TWO TEST RUN MANY 
TEST PATTERNS THROUGH THE LOGIC. AF TER_AN ERROR 
IS ENCOUNTERED. ONLY THE FIRST FIVE ERRORS ARE 
REPORTED (TYPED ON THE TTY). EVERY ERROR THOUGH IS 
LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN THE 
TEST IS COMPLETE. NOTE THAT IS SW<13>=1 THIS 
SUMMARY WILL NOT BE TYPED UNLESS SW<7>=1. IN OTHER 
WORDS TO GET JUST AN ERROR SUMMARY FROM EITHER OF 
THESE TWO TESTS 1 AND 11 IN PROGRAM CKFPACO BOTH 
SWITCHES 13 AND 7 MUST = 1. 

ERROR RECOVERY 
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SU<15:9>=0... MOST ERRORS WILL CAUSE EXECUTION TO 

II? AFTER THE MESSAGE IS TYPED. A FEU 

lil TESTS ARE IN SECTIONS. IN THESE 

III TESTS AN ERROR WILL CAUSE EXECUTION 

III TO GO TO THE NEXT SECTION AFTER THE 

iie MESSAGE IS TYPED. 

iil SU<15>=1.. THE PROGRAM WILL HALT AFTER TYPING 

m ^ THE ERROR MESSAGE. PRESSING THE 

III CONSOLE CONTINUE WILL CAUSE^ THE 

III PROGRAM TO CONTINUE AS If SW<15>=0. 

7. RESTRICTIONS 

3A2 

343 

344 NONE 
345 

8. MISCELLANEOUS 

348 

350 8.1 EXECUTION TIMES 

III LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 

354 8.2 STACK POINTER 

m THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 

357 THE THREE PROGRAMS. 

358 

Sn ^'^ ThPpRoSaM MAKES ONE PASS FOR EACH END Or PASS 

15? MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 

SJ THE TOTAL NUMBER OF PASSES COMPLETED AND THE TOTAL 

^1 NUMBER Of ERRORS SINCE THE LAST END Of PASS MESSAGE. 

565 8.4 T-eiT TRAPPING 

ij^ IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 

Ms ON EVERY OTHER PASS. FIRST PASS WILL NOT ENABLE 

TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 

37? 8.5 SOFTWARE SWITCH REGISTER 

III If THE USER DESIRES, A SOFTWARE SWITCH REGISTER CAN 

I74 BE EXAMINED OR HODIflED AT ANY TIME BY THE USER f 

I7C HE TYPES CNTRL/6 WHILE THE PROGRAM IS RUNNING. THIS 

ill CNTRL/6 WILL CAUSE THE CONTENTS Of THE SOfTWARE 

SWITCH REGISTER TO BE TYPED ON THE TTY AND ASK THE 

378 USER FOR A NEW VALUE. WHEN THE USER TYPES A VALUE 

T7Q AND CARRIAGE RETURN THEN THE PROGRAM WILL RESUME 

III TESTING AT THE SAME POINT AT WHICH IT LEfT Off WHEN 

l|? THE USER TYPED CNTRL/G. NOTE THAT WHEN NOT RUNNING 

382 UNDERACT, APT OR CHAIN THE USER WILL BE ASKED 

583 FOR A SOfTWARE SWITCH REGISTER VALUE AfTER LOADING 

3I4 ADDRESS 200 AND STARTING THE PROGRAM THE FIRST TIME 
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38S 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

40? 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 



8.6 



8.7 



TEST 1 



TEST 2 



TEST 3 



THE PROGRAM IS RUN AFTER LOADING ONLY IF THE 
CONSOLE SWITCH REGISTER CONTAINS Mim . 



INTERRUPTS TEST 

IN PROGRAM CKFPBBO THERE IS A SPECIAL TEST FOR 
CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 
CAN BE RUN ONLY IF A SPECIAL TEST MODULE IS IN THE 
SYSTEM. THIS MODULE WILL PROBABLY ONLY BE USED IN 
MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 
THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
TEST MODULE IS ON THE SYSTEM AND SW<7>=1 THIS TEST 
WILL BE RUN. IF SW<7>sO, THIS TEST WILL BE 
DESELECTED. 



ACT. APT AND XXDP COMPATIBILITY 

THESE PROGRAMS ARE FULLY COMPATIBLE WITH: 
APT 
ACT 

XXDP MONITOR AND CHAIN PROGRAMS. 



PROGRAM DESCRIPTION 



STF WITH ILLEGAL ACCUMULATOR TEST 



THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL 
ACCUMULATOR 7. MODE 0. 

FDST MODE 1, FLOATING NODE, TEST 



THIS IS A TEST OF THE STF INSTRUCTION USING FDST 
MODE 1. 

FDST MODE 2 TEST 



THIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
TEST 4 FDST MODE 2. WITH GR7, TEST 

THIS IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE 
MODE. 
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443 TEST 5 FDST MODE 4 TEST 

444 

445 

446 THIS IS A TEST OF STO WITH FDST MODE 4. 

447 

448 TEST 6 FDST MODE 3 TEST 

449 

450 

451 THIS IS A TEST OF FDST MODE 3 USING STD. 

452 

453 TEST 7 FDST MODE 5 TEST 

454 

455 

456 THIS IS A TEST OF FDST MODE 5 USING STD. 

457 

458 TEST 10 FDST MODE 6« INDEX MODE, TEST 

459 

460 

461 THIS IS A TEST OF FDST MODE 6. INDEX MODE, USING 

462 STD. 
463 

464 TEST 11 FDST MODE 7, INDEX DEFERRED MODE. TEST 

465 

466 

467 THIS IS A TEST OF FDST MODE 1. INDEX DEFERRED MODE, 

468 USING STD. 
469 

470 TEST 12 STCFD TEST 

471 

472 

473 THIS IS A TEST OF THE STCFD INSTRUCTION. 

474 

475 TEST 13 STCDF TEST 

476 

477 

478 THIS IS A TEST OF THE STCDF INSTRUCTION. 

479 

480 TEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 

481 

482 

483 THIS TEST STCFD WITH ILLEGAL AC 6. 

484 

485 TEST 15 CLRD TEST 

486 

487 

488 THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 

489 

490 TEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 

491 

492 

493 THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 

494 

495 TEST 17 NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7. TEST 

496 

497 

498 THIS IS A TEST OF THE SPECIAL DEST FLOWS USING THE 
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499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
5U 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 



NEGD INST WITH MODE ZERO AND ILLEGAL AC7. 
TEST 20 NEG^ ABSF AND TSTF SOURCE MODE 0 TEST 



THIS IS A TEST THE NE6F. ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 0 

TEST 21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 

THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 1 

TEST 22 NEGF. ABSF AND TSTF SOURCE MODE 2 TEST 



THIS IS A TEST THE NEGF. ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 2 

TEST 23 NEGF. ABSF AND TSTF SOURCE MODE 4 TEST 

THIS IS A TEST THE NEGF. ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 4 

TEST 24 NEGF. ABSF AND TSTF SOURCE MODE 3 TEST 



THIS IS A TEST THE NEGF. A8SF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 3 

TEST 25 NEGF. ABSF AND TSTF SOURCE MODE 5 TEST 

THIS IS A TEST THE NEGF. ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 5 

TEST 26 NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 



THIS IS A TEST THE NEGF. ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST NODE 6 

TEST 27 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 



THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 

TEST 30 NEGF, ABSF AND TSTF SOURCE MODE 6, GR7, TEST 

THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 6 

TEST 31 NEGF. ABSF AND TSTF SOURCE MODE 7. GR7. TEST 
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556 

558 THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 

559 THE ABSO INSTRUCTION IS USED TO TEST MODE 7 

56? TEST 3? SPECIAL DEST, MODE 0. TEST 

562 

564 THIS IS A TEST OF THE NE6F ABSF AND TSTF DESTINATION 

565 FLOWS MODE 0 USING THE NEGD INSTR. 
566 

567 TEST 33 SPECIAL DEST. MODE 1. TEST 

568 

S69 

570 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

571 FLOWS MODE 1 USING THE NEGD INSTR. 

573 TEST 34 SPECIAL DEST. MODE 2. TEST 

575 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

576 FLOWS MODE 2 USING THE NEGD INSTR. 

578 TEST 35 SPECIAL DEST. MODE 4. TEST 

579 

580 

581 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

582 FLOWS MODE 4 USING THE NEGD INSTR. 
583 

584 TEST 36 SPECIAL DEST. MODE 3. TEST 

585 

586 

587 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

588 FLOWS MODE 3 USING THE NEGD INSTR. 

590 TEST 37 SPECIAL DEST. MODE 5. TEST 

591 

593 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

594 FLOWS MODE 5 USING THE NEGD INSTR. 
595 

596 TEST 40 SPECIAL DEST. FLOATING MODE 2. TEST 

597 

598 

599 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

600 FLOWS MODE 2 USING THE NEGF INSTR. 
601 

602 TEST 41 SPECIAL DEST. M0DE2. GR7 (IMMEDIATE). TEST 

603 

605 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

606 FLOWS MODE 2(IMMEDIATE) USING THE NEGD INSTR. 
607 

608 TEST 42 SPECIAL DEST. MODE 6. TEST 

609 

610 

611 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

612 FLOWS MODE 6 USING THE NEGD INSTR. 
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61A TEST 43 SPECIAL DEST, MODE 7. TEST 

615 

617 THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 

618 FLOWS MODE 7 USING THE NEGD INSTR. 

620 TEST 44 NEGD, ABSD AND TSTD TEST 

621 

623 THIS IS A TEST OF THE NEGD A8SD AND TSTD 

624 INSTRUCTIONS. 

625 

626 TESi 45 SOURCE MODES, MODE 1 (FL=0), TEST 

627 

628 

629 THIS IS A TEST OF SOURCE MODE 1 USING THE LDFPS 

630 INSTRUCTION. 

632 TEST 46 SOURCE MODES. MODE 2 (FL=0), TEST 

633 

634 

635 THIS IS A TEST OF SOURCE MODE 2 USING THE LDFPS 

636 INSTRUCTION. 

638 TEST 47 SOURCE MODES, MODE 4 (FL=0). TEST 

639 

64? THIS IS A TEST OF SOURCE MODE 4 USING THE LDFPS 

642 INSTRUCTION. 

643 

644 TEST 50 SOURCE MODES, MODE 3 (FL=0). TEST 

645 . 

646 

647 THIS IS A TEST OF SOURCE MODE 3 USING THE LDFPS 

648 INSTRUCTION. 
649 

650 TEST 51 SOURCE MODES, MODE 5 (FL=0). TEST 

651 

652 

6«3 THIS IS A TEST OF SOURCE MODE 5 USING THE LDFPS 

654 INSTRUCTION. 

655 

656 TEST 52 SOURCE MODES, MODE 6 (FL=0), TEST 

657 

658 

659 THIS IS A TEST OF SOURCE MODE 6 USING THE LDFPS 

660 INSTRUCTION. 
661 

662 TEST 53 SOURCE MOOES, MODE 7 (FL=0). TEST 

663 

664 

665 THIS IS A TEST OF SOURCE MODE 7 USING THE LDFPS 

666 INSTRUCTION 
667 

668 TEST 54 SOURCE MODES, MODE 2 6R7 (FL=1). TEST 

669 
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67? THIS IS A TEST OF THE LDCLD WITH IWEDIATE 

672 ADDRESSING MODE 

673 

674 TEST 55 SOURCE MODES. MODE 2 (FL^D, TEST 

676 THIS IS A TEST OF THE LDCLD INSTRUCTION WITH MODE 2. 
677 

678 TEST 56 LDCIF AND LDCLF TEST 

679 

68? THIS IS A TEST OF THE LDCIF AND THE LDCLF 

682 INSTRUCTIONS. 

683 

684 TEST 57 LDCID AND LDCLD TEST 

685 

687 THIS IS A TEST OF LDCID AND LDCLD 
688 

689 TEST 60 LDEXP TEST 

690 

691 

692 THIS IS A TEST OF THE LDEXP INST A TUBROUTINE IS 

693 USED TO SET UP OPERANDS. EXECUTE THE LDEXP INST AND 

694 CHECK THE RESULTS. 
695 

696 TEST 61 DESTINATION MODES. MODE 1 (FL=0). TEST 

697 

698 

699 THIS IS A TEST OF DESTINATION MODE 1 USING THE STFPS 

700 INSTRUCTION 
701 

702 TEST 62 DESTINATION MODES, MODE 2 (FL=0). TEST 

703 

704 

705 THIS IS A TEST OF DESTINATION MODE 2 USING THE STFPS 

706 INSTRUCTION 
707 

708 TEST 63 DESTINATION MODES, MODE 4 (FL=0). TEST 

709 

710 

711 THIS IS A TEST OF DESTINATION MODE 4 USING THE STFPS 

712 INSTRUCTION 

714 TEST 64 DESTINATION MODES. MODE 3 (FL=0). TEST 

715 

716 

717 THIS IS A TEST OF DESTINATION MODE 3 USING THE STFPS 

718 INSTRUCTION 
719 

720 TEST 65 DESTINATION MODES. MODE 5 (FL=0). TEST 

721 

722 

723 THIS IS A TEST OF DESTINATION MODE 5 USING THE STFPS 

724 INSTRUCTION 

726 TEST 66 DESTINATION MODES. MODE 6 (FL=0). TEST 
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727 

729 THIS IS A TEST OF DESTINATION MODE 6 USING THE STFPS 

730 INSTRUCTION 

732 TEST 67 DESTINATION MODES. MODE 7 (FL=0), TEST 

733 

734 
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736 

737 

738 

739 

7A0 

7A1 

7A2 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 



THIS IS A TEST OF DESTINATION MODE 7 USING THE STFPS 
INSTRUCTION 

TEST 70 DESTINATION MODES, MODE 2 (FL=1). TEST 



THIS IS A TEST OF DESTINATION MODE 2 USING STCOL 
WITH REGISTER 0 

TEST 71 DESTINATION MODES. MODE 4 (FL=1), TEST 



THIS IS A TEST OF DESTINATION MODE 4 «.3IN6 STCDL 
WITH REGISTER 0 

TEST 72 STCDI AND STCDL TEST 



THIS IS A TEST OF THE STCDI AND STCDL INSTRUCTIONS. 
NOTE THAT A SUBROUTINE, STCSUB, IS USED TO .'iET UP 
THE OPERANDS. EXECUTE THE STC INSTRUCTION AND CHECK 
THE RESULT. 

TEST 73 STCFL AND STCFI TEST 

THIS IS A TEST OF STCFL AND STCFI. IT MAKES USE OF 
THE SAME SUBROUTINE. STCSUB, WHICH WAS USED TO TEST 
STCDL AND STCDI. 

TEST 74 STEXP TEST 



THIS IS A TEST OF THE STEXP INSTRUCTION 
TEST 75 STST TEST 



THIS IS A TEST OF THE STST INSTRUCTION. FIRST AN 
ILLEGAL FPS OP CODE (INSTRUCTION) IS USED TO ENTER 
AN ERROR CONDITION IN THE FEC AND FEA. THE STST IS 
EXECUTED AND THE FEC AND FEA ARE CHECKED 



TEST 76 



D-SPACE NON-ACCESS TEST 



THIS IS A TEST THAT ENABLES D-SPACE, BUT MAKES IT 
NON-RESIDENT, CAUSING A MEMORY MANAGEMENT TRAP 
SHOULD IT BE ACCESSED DURING AN INSTRUCTION THAT 
WILL NOT NORMALLY ACCESS D-SPACE. 



TEST 77 



AUTO INCREMENT/DECREMENT TEST 



THIS IS A TEST THAT ENABLES D-SPACE, BUT HAKES IT 
NON-RESIDENT IN THE AREA OF THE TEST. FORCING A 
MEMORY MANAGEMENT TRAP FOR EVERY FPP INSTRUCTION IN 
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793 THE TEST. SRI IS THEN EXAMINED FOP PROPER CONTENTS. 

794 SHOULD THE FPP INSTRUCTION FAIL TO ABORT. THE NEXT 

795 INSTRUCTION IS AN lOT TRAP. AND CALLS AN ERROR TO 

796 ANOUNCE THE FPP INSTRUCTION'S FAILING TO CAUSE AN 

797 ABORT. NOT ALLOWING PROPER EXAMINATION OF SRI. 
798 

799 
800 

801 10. LISTING 

802 8 

803 

80<. 000A44 MNUMBER=444 

805 000003 PR06NUM-3 

806 .LIST ME 

807 .NLIST MD 

808 .Nl 1ST MC 

809 .NLIST CND 

810 .NLIST BEX 
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197A 
1975 
1976 
1977 
1978 
1979 



1980 
1981 
1982 
1983 
198A 
198S 
1986 
1987 
1988 
1989 



000001 
160000 



00024A 
000250 
177400 
000200 
000011 
000015 



001100 
104000 
000004 

000011 
000012 
000015 
000200 
177776 
177776 
1 7777i, 
\77772 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 

000000 
000040 
000100 
000140 



.MCALL . HEADER,. SURHI..EQUAT.. SETUP.. $CATCH,.$ACni 
.MCALL .$SAVE,.$CMTAG 

.MCALL .STYPDEC. STRAP.. $P0UER,.$APTHDa,.$APT8LS 
.MCALL .$APTYPE..$RfcAD 

.MCALL .EQUIV .'REMOVE FOR PDP-10 

TITLE CKFPCDO FPllF FLTG PNT PRT C 
•COPYRIGHT (C) 1981 
•DIGITAL EQUIPMENT CORP. 
•MAYNARD. MASS. 01754 
* 
* 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAJNDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5). JAN. 1981. 

$TN=1 

$SWR=160000 ;;HALT ON ERROR. LOOP ON TEST, INHIBIT ERROR TYPOUT 



FPVECT=244 

MMVECT=250 

$SWR=1 77400 

SSWRMSK=200 

TA8=11 

CRLF=15 



.S8TTL BASIC DEFINITIONS 
.••INITIAL ADDRESS OF THE STACK 
STACK= 1100 

ERR0R=EMT 
SC0PE=I0T 
.••MISCELLANEOUS DEFINITIONS 



POINTER ••• 1100 •** 



HT= 
LF = 
CR= 
CRLF= 
PS= 



STKLMT= 
PIRQs 
DSUR= 
DDISP= 



11 
12 
15 
200 

177776 
PSU=PS 
177774 
\77772 
m570 
177570 



;;CODE 
;;CODE 
;;CODE 
.-.-CODE 



FOR 
FOR 
FOR 
FOR 



TAB 



HORIZONTAL 
LINE FEED 
CARRIAGE RETURN 
CARRIAGE RETURN-LINE 
:; PROCESSOR STATUS WORD 



FEED 



;; STACK LIMIT REGISTER 
:;PROGRAn INTERRUPT REQUEST REGISTER 
:;HARDUARE SWITCH REGISTER 
.-.HARDWARE DISPLAY REGISTER 
.-•GENERAL PURPOSE REGISTER DEFINITIONS 

;; GENERAL REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



to 

XI 
12 
15 
X4 
15 
16 
17 
16 
17 



.••PRIORITY LEVEL 
PRO= 0 
PR1= 40 
PR2= 100 
PR3= 140 



: .-GENERAL 
: .-GENERAL 
:; GENERAL 
.-.-GENERAL 
; .-GENERAL 
;; GENERAL 
:; GENERAL 
.-.-STACK POINTER 
;; PROGRAM COUNTER 
DEFINITIONS 

; .-PRIORITY LEVEL 0 
; .-PRIORITY LEVEL 1 
.-.-PRIORITY LEVEL 2 
.-;PRIORITY LEVEL 3 
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19 



000200 
000240 
000300 
0003A0 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 



PR4= 

PR5= 

PR6= 

PR7= 

;*"SUI 

SW15= 

SU14= 

SW13= 

SU12= 

SU11 = 

SU10= 

SU09= 

SU08= 

SU07= 

SU06= 

SW05= 

SU04= 

SU03= 

SU02= 

SU01- 

syoo= 



200 
240 
300 
340 



;PRIORITY LEVEL 4 
;PRI0RITY LEVEL 5 
;PR10RITY LEVEL 6 
;PRI0RITY LEVEL 7 



.••DATA 
BJT15= 
BIT14= 
BIT13= 
BIT12= 
BIT11= 
BIT10= 
BIT09= 
BIT08= 
BIT07= 
BIT06= 
BIT05= 
BIT04= 
BIT03= 
BIT02= 
BIT01= 
BITOO= 



TCH REGISTER" SWITCH DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

SU9=SU09 
SU8=SU08 
SW7=SU07 
SU6-SU06 
SU5=SU05 
SU4cSU04 
SU3=SU03 
SU2=SU02 
SU1=SU01 

suo=syoo 

BIT DEFINITIONS (BITOO TO BITIS) 
100000 



40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

BIT9=8IT09 
BIT8=8IT08 
6IT7=8IT07 
BiT6=8IT06 
Bir5=8IT05 
BIT4=8IT04 
BIT3=8IT03 
BIT2=8IT02 
BIT1=BIT01 
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1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20K 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2031 

2032 



000001 

000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 

000000 

000001 

000002 

000003 

000004 

000005 

000006 

000007 

172300 

172302 

172304 

172306 

172310 

172316 

172340 

172342 

172344 

172346 

172350 

172356 

172320 

172322 

172324 

172326 

172330 

1 72336 

172360 

172362 

172364 

172366 

172370 

172376 

177572 

177574 

177576 

172516 

117760 

000020 



000000 



;*8ASIC 

ERRVEC= 

RESVEC= 

T8ITVEC 

TRTVEC= 

BPTVEC= 

I0TVEC= 

PURVEC= 

E«TVEC= 

TRAPVEC 

TKVEC= 

TPVEC= 

PIRUVEC 

ACO 

ACl 

AC2 

AC3 

AC4 

AC5 

AC6 

AC7 

KIPDRO 

KIPDR1 

KIPDR2 

KIPDR3 

KIPDR4 

KIPDR7 

KIPARO 

KIPAR1 

KIPAR2 

KIPAR3 

KIPAR4 

KIPAR7 

KDPORO 

KDPDR1 

KDPDR2 

KDPDR3 

KDPDR4 

ICDPDR7 

KDPARO 

KDPARI 

KDPAR2 

KDPAR3 

KDPAR4 

KDPAR7 

NMRO 

SRI 

nnR2 
mR3 

DATA 
lOTRAP 



.S8TTL 



BIT0=8JT00 
"CPU" TRAP 
4 

10 
=14 

14 

14 

20 

24 

30 
=34 

60 

64 

=240 
.S8TTL FPP 
=X0 
=X1 
=X2 
=X3 
=X4 
=X5 
=X6 
=X7 

=172300 
=172302 
=172304 
=172306 
=172310 
=172316 
=172340 
=172342 
=172344 
=172346 
=172350 
=172356 
=172320 
=172322 
=172324 
=172326 
=172330 
=172336 
=172360 
=172362 
=172364 
=172366 
=172370 
=172376 
=177572 
=177574 
=177576 
=172516 
=117760 
=000020 



TRAP CATCHER 
.=0 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



VECTOR ADDRESSES 

TIME OUT AND 
RESERVED AND 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EHT) •♦ERROR** 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
REGISTER DEFINITIONS 



CKFPCDO fPlIF fLTG PNT PRT C 
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0001 74 
000174 000000 
000176 000000 
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000200 000137 006116 



.••ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ••.♦2. HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS^ ^^^^^ 
.'•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
=174 

.SBTTl ST«tING^DMeSS(ES)^^ ^^^^^^^ ^^^^^^^ ^^^^^ 



t 



CKFPCDO FP11F FLTG PNT PRT C 
COMnON TAGS 

2033 



001100 

001100 

001100 000000 

001102 000 

001103 000 

001104 000000 
001106 000000 
001110 000000 
001112 000000 
001 1U 000 

001115 001 

001116 000000 
001120 000000 
001122 000000 
0011 24 000000 
001126 000000 
001130 000000 
001132 000000 

001134 000 

001135 000 

001136 000000 
001140 177570 
001142 177570 
001144 177560 
001146 177562 
001150 177564 
001152 177566 

001154 000 

001155 002 

001156 012 

001157 000 
001160 000000 

000024 

001162 000000 

001164 000000 

001166 000000 

001170 000000 

001172 000000 

001174 000000 

001176 000000 

001200 000000 

001202 000000 

001204 000000 

001206 000000 

001210 000000 

001212 000000 

001214 000000 

001216 000000 

001220 000000 

001222 000000 

001224 000000 

001226 000000 
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.SBTTL 


COMMON 


TAGS 




.••THIS 


TABLE CONTAINS 


;*USEO 


IN THE 


c>R06RAM 




.=1100 




SCNTA6. 








.WORD 


0 


STSTNn 


.BYTE 


0 


SERFLG 


.BYTE 


0 


SICNT: 


.WORD 


0 


$LPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


.WORD 


0 


SITEMB 


.BYTE 


0 


SERMAX 


.BYTE 


1 


SERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


SBDADR 


.WORD 


0 


$6DDAT 


.WORD 


0 


SBDDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOB 


.BYTE 


0 


SINTAG: .BYTE 


0 




.WORD 


0 


SUR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 



$TKS: 177560 

$TK8: 177562 

$TPS: 177564 

$TP8: 177566 



$NULL: .BYTE 0 

SFILLS: .BYTE 2 

SFIlLC: .byte 12 

STPfLG: .BYTE 0 

SREGAD: .WORD 0 

.REPT SCM3 

$REGO: .WORD 0 

$REG1: .WORD 0 

SREG2: .WORD 0 

SREG3: .WORD 0 

$RE64: .WORD 0 

$RE65: .WORD 0 

$REG6: .WORD 0 

$REG7: .WORD 0 

SREGIO: .WORD 0 

SREG11: .WORD 0 

SREG12: .WORD 0 

$REG13: .WORD 0 

SREG14: .WORD 0 

SRE615: .WORD 0 

SRE616: .WORD 0 

$REG17: .WORD 0 

$REG20: .WORD 0 

$REG21: .WORD 0 

$R£G22: .WORD 0 



VARIOUS COMMON STORAGE LOCATIONS 



;; START OF COMMON TAGS 

.-.-CONTAINS THE TEST NUMBER 

;: CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

.-.-CONTAINS SCOPE LOOP ADDRESS 

.-.-CONTAINS SCOPE RETURN FOR ERRORS 

.-.-CONTAINS TOTAL ERRORS DETECTED 

.-.-CONTAINS ITEM CJNTROL BYTE 

.-.-CONTAINS MAX. ERRORS PER TEST 

: .-CONTAINS PC OF LAST ERROR INSTRUCTION 

.-.-CONTAINS ADDRESS OF 'GOOD' DATA 

.-.-CONTAINS ADDRESS OF 'BAD' DATA 

.-.-CONTAINS 'GOOD' DATA 

.-.-CONTAINS 'BAD' DATA 

.-.-RESERVED— NOT TO BE USED 

.-.-AUTOMATIC MODE INDICATOR 
;: INTERRUPT MODE INDICATOR 

.-.-ADDRESS OF SWITCH REGISTER 
.-.-ADDRESS OF DISPLAY REGISTER 
;.-TTY KBD STATUS 
;.-iTY kBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
.-.TTY PRINTER BUFFER REG. ADDRESS 
.-.-CONTAINS NULL CHARACTER FOR FILLS 
;.- CONTAINS # OF FILLER CHARACTERS REQUIRED 
.-.-INSERT FILL CHARS. AFTER A 'tlNE FEED" 
;; "TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
.-.CONTAINS THE ADDRESS FROM 
; .-WHICH (SREGO) WAS OBTAINED 

.-.-CONTAINS ((SRE6AD)^0) 

.-.-CONTAINS (($REGAD)^2) 

.-.-CONTAINS (($REGAD)>4) 

.-.-CONTAINS (($REGAD)^6) 

.-.CONTAINS (($REGAD)^10) 

.-.-CONTAINS ((SREGAD)4l2) 

.-.-CONTAINS (($RE6AD)^14) 

.-.-CONTAINS (($REGAD)*16) 

.'.-CONTAINS (($RE6AD)*20) 

:.- CONTAINS ( (SREGAD) ^22} 

.-.-CONTAINS (($REGAD)>24) 

;; CONTAINS ( ($REGAD)*26} 

CONTAINS (($RE6AD)*30) 

.-.CONTAINS (($REGAD)*32) 

.-.CONTAINS (($REGAD)*34) 

.-.-CONTAINS (($REGAD)^36) 

.-.CONTAINS (($REGAD)*40) 

.-.-CONTAINS (($REGAD)H2) 

.-.CONTAINS (($REGAD)*44) 
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001230 

001232 
001 23A 
001236 
001 2A0 
001242 
001 2AA 
001 2A6 
001250 
001252 
001254 
001256 
001260 
001262 
001 264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001312 
001313 
001314 



001316 
001316 

001320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001336 
001337 
001340 
001342 
001344 



000000 
000024 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



377 
000 



$REG23: 
.REPT 
STMPO: 
STMPl 
$TMP2i 
$TMP3! 
$TMP4; 
$TMP5; 
$TMP6: 
$TMP7: 
STMPIO: 
STMPl 1: 
$TMP12: 
STMPl 3: 
STMPU; 
STMPl 5: 
STMPl 6: 
STMPl 7: 
STMP20: 
$TMP21: 
$TMP22; 
STMP23: 
STIMES: 
SESCAPE 
377 S8ELL 
SQUES: 
SCRLF 
SLF: 



;; CONTAINS ( (SREGAD) ♦46) 



.UORD 0 
24 

.WORD 0 ;;USER DEFINED 

.WORD 0 ;:USER DEFINED 

.UORD 0 :;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.UORD 0 ;;USER DEFINED 

.UORD 0 :;USER DEFINED 

.UORD 0 ;;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 :;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 :;USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 ;;USER DEFINED 

.UORD 0 ;;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ;:USER DEFINED 

.WORD 0 ::USER DEFINED 

0 :;nAX. NUMBER OF ITERATIONS 

0 ESCAPE ON ERROR ADDRESS 

.ASCIZ <207><377><377> ;;CODE FOR BELL 

.ASCII /?/ .-.-QUESTION MARK 

.ASCII <15> ;; CARRIAGE RETURN 

.ASCIZ <12> .-.-LINE FEED 



001346 
001347 



000 
000 



.SBTTL 

;;***•• 

.EVEN 

SMAIL: 

SMSGTY 

SFATAL 

STESTN 

SPASS: 

SDEVCT: 

SUNN: 

SMS6AD: 

SMSGLG: 

SE TABLE 

SENV: 

SENVM: 

SSUREG: 

SUSWR: 

SCPUOP: 

• * 

9 

• * 

• * 

SMAMSI: 
SMTYP1 : 



APT MAI LBOX-E TABLE 
********************************************************** 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.UORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AHSGLG 

AENV 

AENVM 

ASWREG 

AUSUR 

ACPUOP 



.BYTE 
.BYTE 



AMAMS1 
AMTYP1 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE , , 

1 1 /04=01 , 1 1 /05=02 . 1 1 /20=03, 1 1 /40=04 . 1 1 /45=05 
1 1/70=06. P0Q=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=fL0ATlNG POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLK#1 
HEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE =001 
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001350 000000 

001352 000 

001353 000 

001354 000000 

001356 000 

001357 000 
001360 000000 

001362 000 

001 363 000 
001 36A 000000 
001366 000000 
001370 000000 
001372 000000 
001 37A 000000 
001376 000000 
001400 000000 
001402 000000 
001404 000000 
001406 000000 
001410 000000 
001412 000000 
001414 000000 
001416 000000 
001420 000000 
001422 000000 
001424 000000 
001426 000000 
001430 000000 
001432 000000 
001434 000000 
001436 000000 
001440 000000 
001442 



iMADRI: .WORD 

i«AMS2: .BYTE 

$MT VP2: .BYTE 

SnADR2: .WORD 

$MAMS3: .BYTE 

$MTYP3: .BYTE 

$MADR3: .WORD 

SMAMS4: .BYTE 

$MTYP4: .BYTE 

$MADR4: .WORD 

SVECTI: .WORD 

$VECT2: .WORD 

SBASE: .WORD 

$DEVM: .WORD 

$CDU1: .WORD 

$CDU2: .WORD 

SDDUO: .WORD 

$DDU1: .WORD 

SDDU2: .WORD 

SDDU3: .WORD 

SDDU4: .WORD 

SDDU5: .WORD 

$DDW6: .WORD 

SDDU7: .WORD 

$DDU8: .WORD 

$DDU9: .WORD 

$DDU10: .WORD 

$DDU11: .WORD 

$DDU12: .WORD 

$DDU13: .WORD 

SDDUU: .WORD 

$DDU15: .WORD 
$ETEND: 



AMADR1 

AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AnAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDU1 

ACDU2 

ADDUO 

ADDU1 

ADDU2 

ADDU3 

ADDU4 

ADDU5 

A0DU6 

ADDU7 

ADDU8 

ADDU9 

A0DU10 

ADDU11 

ADDU12 

ADDU13 

ADDU14 

ADDU15 



SEQUENCE 



300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
HIGH ADDRESS.BLMI 

MEM. LAST ADDR.=3 BYTES. THIS WORD AND LOW OF 'TYPE" ABOVE 

HIGH ADDRESS.M.S. BYTE 

MEM.TYPE.BLK#2 

MEM. LAST ADDRESS,8LK#2 

HIGH ADDRESS.M.S.BYTE 

MEM. TYPE, BLK#3 

MEM. LAST ADDRESS. BLK#3 

HIGH ADDRESS.M.S.6YTE 

MEM. TYPE .BLK#4 

MEM. LAST ADDRESS. BLK/r4 

INTERRUPT VECT0R#1.BUS PRIORI TY/TI 

INTERRUPT VECT0R«2BUS PRIORI TY«2 

BASE ADDRESS OF EQUIPMENT UNDER TEST 

DEVICE MAP 

CONTROLLER DESCRIPTION U0RD#1 
CONTROLLER DESCRIPTION yORD#2 
DEVICE DESCRIPTOR yORD#0 
DEVICE DESCRIPTOR U0RD#1 
DEVICE DESCRIPTOR U0RD#2 
DEVICE DESCRIPTOR U0RD#3 
DEVICE DESCRIPTOR U0RD#4 
DEVICE DESCRIPTOR U0RD#5 

DEVICE DESCRIPTOR U0RD#6 * 
; DEVICE DESCRIPTOR U0RD#7 
DEVICE DESCRIPTOR UORD/TS 
iDEVICF DESCRIPTOR U0RDf9 
iDEVICE DESCRIPTOR UORD/TIO 
iDEVICE DESCRIPTOR UORD/TII 
iDEVICE DESCRIPTOR W0RD#12 
iDEVICE DESCRIPTOR U0RD#13 
iDEVICE DESCRIPTOR W0RD#14 
iDEVICE DESCRIPTOR U0RD«15 
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SEQUENCE 



00K42 

?057 

2059 00U42 
0OU52 
00U62 
00U72 
001502 
001512 
001522 
001532 
001542 
001552 
001562 
001572 
001602 
001612 
001 6r2 
001632 
001642 
001652 
001662 
001672 
001702 
001712 
001722 
001732 
001742 
001752 
001 762 
001772 
002002 
002012 
002022 
002032 
002042 
002052 
002062 
002072 
002102 
002112 
002122 
002132 
002142 
002152 
002162 
002172 
002202 



000444 
052346 
052422 
052452 
052502 
052563 
052574 
052737 
052761 
052774 
053024 
053036 
053036 
053104 
053116 
053142 
053166 
053204 
053204 
053216 
053243 
053260 
053272 
053317 
053334 
053346 
053372 
053410 
053422 
053447 
053464 
053476 
053556 
053556 
053476 
053556 
053476 
053476 
053556 
053476 
053476 
054235 
054274 
054274 
054235 
054235 



S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORHATION FOR EACH ERROR THAT CAN OCCUR. 
•THE INFORMATION IS OBTAINED BY USING THE INDEX NiJHBER FOUND IN 
•LOCATION $ITE«B. THIS NUMBER INDICATES WHICH ITEH IN THE TABLE IS PERTINENT. 



•N0TE1 
•NOTE 2: 









• ♦ 


CM 








" ft 


OH 








• ft 


OT 








• ft 


Of 








KnR To: 


DCOT 


\jf\ 


"in/ 


rt7T1 oo 




.wOHV 


m^ 
\Jr\ 


07/ 
df* 


n771 /. "3 

\Jf5iHd 




.UQRP 


\}f\ 




A771 it/. 
0/^5 I0*» 




LjnDf\ 
.WORD 


\}f\ 


Lt\L 


n7700iL 

\jf5cvo 




unDA 
. WUHD 




LL7 


Vf JCJV 




.WUNi; 


Ml 


LL 7 


073256 




unon 


n7i 
\if 


L(\L 


07750* 
vf JCVO 






yjr 


LL7 
HHf 


077370 

vf JCJV 




. WHO 


n7i 
vf 


Lt\L 


07750A 
vf JCvO 




unon 


vf 


LL7 
HHf 


077570 

vf JCJV 




unon 


f\7^ 


hOU 


0775^A 
vf jcjO 




unon 

. wUHV 


n7i 
\}i 


HOv 


0775^A 
vf jCjO 




unon 


vf 


H*» f 


077570 
Vf JCJV 




UOOft 
. WUny 


r\T 
\ji 


^90 
jCV 


077570 
Vf jCfv 




• wunv 


Mf 


hOU 


07X5SA 
vf JCJO 






071 


Lt\L 


07X570 
vf JCfv 




unpn 


vf 


LL7 


077570 

vf JCJV 




unon 


071 
vf 




077570 

vf JCJV 




unon 


vf 


LtJC\ 
•»0U 


0775SA 

VijCJV 

077570 

VtJCfV 




unon 

• HUNI; 


071 
vf 


Lt\L 




uoon 

• HUKU 


07' 
vf 




07X570 

vf JCJV 




unon 


071 
vf 




0775^A 

vf JCJV 






071 
Vf 


LC\L 
HvH 


077570 

vf JCfv 




unon 


071 
Vf 


LL7 
HHf 


077570 

vf JCJV 




unon 


071 
vf 




0775SA 

vf JCJV 




unon 


071 
vf 


MVH 


077570 
vf JCfv 




unon 


071 
vf 


HH f 


077570 

vf JCJV 




unon 


071 
vf 




0775S#> 

Vf JCJV 




unon 


07 

Vf 


L(\L 
HUH 


077570 

vf JcfV 




unon 


071 
vf 


HH f 


vf -jCjv 




unon 


07 

VI 




vf J J ic 




unon 


07 


563 


073312 




WORD 


071 


626 


073356 




.WORD 


071 


563 


073312 




.WORD 


071 


563 


073312 




.WORD 


071 


563 


073312 




.WORD 


071 


563 


073312 




.WORD 


071 


563 


073312 




.WORD 


071 


1563 


073312 




.WORD 


071 


1563 


073312 




.WORD 


071 


563 


073312 




.WORD 


071 


1563 


073312 




.WORD 


07- 


1626 


073356 




.WORD 


071 


1563 


073312 




.WORD 


071 


563 


073312 




.WORD 



IF SITEW 

EACH I TEH 

; .-POINTS 
;; POINTS 
; .-POINTS 
.-.-POINTS 



IS 0 THE ONLY PERTINENT DATA IS (JERRPO, 
IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
TO THE ERROR MESSAGE 
TO THE DATA HEADER 
TO tHE DATA 
TO THE DATA FORMAT 



MNUMBER 

EM1,DH1,DT1.0F1 
EM2.DH2,DT2,DF2 
EM3,DH3.DT3.DF3 
EM4,DH4,DT4,DF4 
EM5,DH5.DT5.DF5 
EM6,DH6,DT6.DF6 
EM7,DH7.DT7.DF7 
EM10.DH10.DT10.DF10 
EM11.DH11.DT11,DF11 
EM12.DH12.DT12,DF12 
EM13.DH13,DT13.DF13 
EM14,DH14,DT14,DF14 
EM15.DH15,DT15,DF15 
EM16.DH16.DT16.DF16 
EM17,0H17.DT17,DF17 
EM20,DH20,DT20,DF20 
EM21,DH21.DT21,DF21 
EM22,DH22,DT22,Df22 
EM23,DH23,0T23.Df23 
EM24,DH24,DT24,DF24 
EM25,DH25,DT25.0f25 
EM26,DN26,DT26,DF26 
EM27.0H27.DT27.DF27 
EM30,DH30.DT30,DF30 
EM31,DH31.DT31.DF31 
E«32,DH32.DT32.DF32 
EM33,DH33,DT33,DF33 
EM34.DH34.DT34,0F34 
EM35,DH35,DT35,DF35 
EM36,DH36,DT36.DF36 
EM37,DH37,DT37,DF37 
EM40.DH40,DT40,DF40 
EM41,DH41,DT41,DF41 
EM42,DH42,DT42.DF42 
EM43.DH43,DT43,DF43 
EM44,DH44,DJ44,DF44 
EM45,DH45,D?45.DF45 
EM46,DH46.DT46.DF46 
EM47.DH47.DT47,0r47 
EM50,DH50,DT50.DF50 
EM51,DH51,DT51.DF51 
EM52,DH52.DT52.DF52 
EM53,DH53.DT53,DF53 
EM54,DH54.DT54.DF54 
EM55.DH55.DT55,DF55 



.-ITEM 1 
.-ITEM 2 
.-ITEM 3 
;ITEM 4 
.ITEM 5 
ITEM 6 
ITEM 7 
ITEM 



10 

ITEM 11 
ITEM 12 
ITEM 13 
ITEM 14 
ITEM 15 
ITEM 16 
ITEM 17 
ITEM 20 
JTEM 21 
ITEM 22 
ITEM 23 
ITEM 24 
ITEM 25 
ITEM 26 
ITEM 27 
ITEM 30 
ITEM 31 
JTEM 32 
JTEM 33 
JTEM 34 
JTEM 35 
JTEM 36 
JTEM 37 
iTEM 40 
JTcM 41 
JTEM 42 
ITEM 43 
JTEM 44 
ITEM 45 
ITEM 46 
JTEM 47 
ITEM 50 
JTEM 51 
JTEM 52 
ITEM 53 
ITEM 54 
ITEM 55 
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SEQUENCE 26 



002212 
002222 
002232 
002242 
002252 
002262 
002272 
002302 
002312 
002322 
002332 
0023A2 
002352 
2362 
002372 
002402 
002412 
002422 
002432 
002442 
002452 
002462 
002472 
002502 
002512 
002522 
002532 
002542 
002552 
002562 
002572 
002602 
002612 
002622 
002632 
002642 
002652 
002662 
002672 
002702 
002712 
002722 
002732 
002742 
002752 
002762 
002772 
003002 
003012 
003022 
003032 
003042 
003052 
003062 
003072 
003102 
003112 



054274 
054274 
054235 
05<.274 
054771 
055067 
055104 
055154 
055200 
055226 
055310 
055333 
055350 
055364 
055400 
055414 
055430 
055503 
055S16 
055532 
055546 
055571 
055604 
055620 
055634 
055660 
055674 
055710 
055724 
055740 
055764 
056000 
056014 
056030 
056053 
056066 
056102 
056116 
056142 
056156 
056172 
056206 
056232 
056246 
056262 
056307 
056322 
056336 
056406 
056422 
056436 
056452 
056510 
056524 
056540 
056556 
056572 



071563 
071563 
071563 
071563 
071274 
071340 
071447 
071274 
071404 
071274 
071340 
071447 
071274 
071447 
071404 
071274 
071460 
071447 
071404 
071274 
071460 
071447 
071404 
071274 
071460 
071460 
071447 
071404 
071274 
071460 
071447 
071404 
071274 
071460 
071447 
071404 
071274 
071460 
071447 
071404 
071274 
071460 
071447 
071274 
071460 
071447 
071274 
071447 
071447 
071274 
071447 
071404 
071274 
071447 
071404 
071274 
071447 



073312 
073312 
073312 
073312 
073270 
073270 
073230 
073270 
073206 
073206 
073206 
073432 
073206 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073142 
073256 
073466 
073142 
073230 
073230 
073270 
073230 
073206 
073206 
073230 
07J206 
073206 
073230 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORDi 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



H56.DH56.D 
«57.DH57,D 
n60,DH60,P 
M61.DH61.D 
n62,DH62,D 
M63,DH63,D 
n64.DH64,D 
n65.DH65,D 
n66,DH66,D 
H67.DH67,D 
M70.DH70.D 
«71.DH71,D 
«72.DH72,D 
«73,DH73.D 
«74,DH74.D 
«75,CH75.D 
W76.DH76.D 
W77.DH77.D 
mOO.DHlOO 

moi.DHioi 

ni02,DHl02 
M103,DH103 
M104,DH104 
M105,DH105 
m06,DHl06 
ni07,DHl07 

mio,DHiio 
mii,DHiii 

mi2.DHl12 
mi3,DHl13 

mu.DHiu 
mis.DHiis 

ni16,DHl16 
H117,DH117 
m20,DHl20 
«121,OHl5l 
m 22. DH1 22 
II123,DH123 
m24,DHl24 
II12S,DH1 
m26,DHl 
«127,DH1 
«130.DH1 
m31 ,DH1 
m32.DHl 
M133,DH1 
ni34,DHl 
«135,0H1 
H136,DH1 
«137,DH1 
nUO.DHUO 
ni41.DHl41 
ni42,DHl42 
ni43,DHl43 
M144,DH144 
nU5,DHl45 
ni46,DHU6 



56 
57 
60 
61 
6 

64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 
77 



DF56 
DF57 
DF60 
0F61 
DF62 
DF63 
DF64 
DF65 
DF66 
DF67 
DF70 
DF71 
DF72 
DF73 
DF74 
OF 75 
DF76 
,,,Dr77 
DT100.DF100 

01, DF101 

02, DF102 



DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 
DT 



>2' 

03, DF103 

04, DF104 

05, DF105 

06, DF106 

07, DF107 

10, DF110 

11, DF111 

12, DF112 

13, Df113 
14.0F114 

15. Df115 

16. DF116 

17. DF117 

20, DF120 

21. DF121 

22, DF 122 

23. DF123 
^4,DF124 

5. DF125 

6, DF126 
7,0F127 

0. DF130 

1. DF131 

2. DF132 

3. DF133 
;4.0F134 

J5.DF135 
|6,0F136 
37,DF137 
40.DF140 
41,0F141 

42, DFU2 

43, DFU3 

44, DF144 

45, DFUS 

46, DF146 



ITEM 56 
ITE« 57 
ITEH 60 • 
ITEM 61 
ITE« 62 
ITEM 63 
ITEM 64 
ITEM 65 
ITEM 66 
ITEM 67 
ITEM 70 
ITEM 71 
ITEM 72 
ITEM 73 
JIEM 74 
ITEM 75 
ITEM 76 
ITEM 77 

ITEM 100 
ITEM 101 
ITEM 102 
ITEM 103 
ITEM 104 
ITEM 105 
J TEH 106 
ITE« 107 

ITEM no 

ITEM 111 
ITEM 112 
ITEM 113 
ITEM 114 
ITEM 115 
ITEM 116 
ITEM 117 
ITEM 120 
ITEM 121 
ITEM 122 
ITEM 123 
ITEM 124 
ITEM 125 
ITEM 126 
ITEM 127 
ITEM 130 
ITEM 131 
ITEM 132 
ITEM 133 
ITEM 134 
ITEM 135 
ITEM 136 
ITEM 137 
ITEM 140 
ITEM 141 
ITEM 142 
ITEM 143 
ITEM 144 
ITEM 145 
ITEM 146 
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003122 
003132 
003U2 
003152 
003162 
003172 
003202 
003212 
003222 
003232 
003242 
003252 
003262 
003272 
003302 
003312 
003322 
003332 
003542 
003352 
003362 
003372 
003402 
003412 
003422 
003432 
003442 
003452 
003462 
003472 
003502 
003512 
003522 
003532 
003542 
003552 
003562 
003572 
003602 
003612 
003622 
003632 
003642 
003652 
003662 
003672 
003702 
003712 
003722 
003732 
003742 
003752 
003762 
003772 
004002 
004012 
004022 



056606 
056626 
056642 
056656 
056676 
056712 
056726 
056746 
056762 
057005 
057053 
057066 
057112 
057126 
057156 
057172 
057206 
057222 
057236 
057252 
057266 
057302 
057316 
057332 
057354 
057410 
057463 
057534 
057606 
057730 
060003 
060054 
060126 
060200 
060252 
060331 
060402 
060513 
060600 
060735 
060750 
060770 
061004 
061054 
061070 
061110 
061124 
061147 
061160 
061211 
061234 
061246 
061260 
061304 
061316 
061330 
061355 



071404 
071274 
071447 
071404 
071274 
071447 
071404 
071274 
071447 
071404 
071274 
071447 
■ '•▼4 
0/ 1520 
071563 
071563 
071563 
071563 
071563 
071563 
071626 
071626 
071626 
071274 
071677 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071520 
071447 
071404 
071274 
071520 
071447 
071404 
071274 
071404 
071274 
071726 
071404 
071274 
071726 
071404 
071274 
071726 
071404 
071274 



073206 
073206 
073230 
073206 
073206 
073230 
073206 
073206 
073230 
073206 
073206 
073230 
073206 
073206 
073312 
073312 
073312 
073312 
073312 
073312 
073356 
073356 
073356 
073206 
073422 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073206 
073230 
073206 
073206 
073206 
073230 
073206 
073206 
073206 
073206 
073256 
073206 
073206 
073256 
073206 
073206 
073256 
073206 
073206 



.WORD 
.yORD 
.WORD 
.WORD 
.WORD 
.UORD 
.yORD 
.yORD 
.yORD 
.yORD 
.yORD 
.yORD 
.yORD 

.yoRD 
.yoRD 
.yoRD 

.yORD 

.yoRD 
.yoRD 

.yORD 
.WORD 
.yORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



EH147. 
EH150. 
EW151, 
EH152, 
Em 53, 
Em 54. 
Em55. 
Em 56. 
Em57. 
EM160. 
Em 61. 
Em 62, 
Em 63. 
Em 64, 
Em 65, 
Em 66, 
Em67, 
E«170, 
Em 71, 
Em 72, 
Em 73. 
Em 74, 
Em 75. 
Em 76. 
Em 77. 
EW200. 
EW201 . 
E«202. 
E«203. 
EH204. 
E^05. 
E«206. 
EW207. 
E«210, 
E«211, 
E«212, 
EW213, 
EH214. 
E«215. 
En216, 
EW217. 
E«220. 
E«221 . 
E«222. 
E«223. 
EH224. 
EW225. 

EN227, 
H230. 



DHl47.Dn47.DF147 
DH150.DT150.DF150 
DH151.DT151.DF151 
DH152.DT152,DF152 
DH153.DT153.DF153 
DH154.DT154.DF154 
DH155.DT155.DF155 
DH156,DT156,DF156 
DH157,DT157,DF157 
DH160,DT160,DF160 
DH161.DT161.DF161 
DH162.0T162.DF162 
DH163.DT163.DF163 
DH164.DT164.DF164 
DH165.DT165.DF165 
DH166.DT166,DF166 
DH167,DT167,DF167 
DH170,DT170,DF170 
DH171,DT171,DF171 
0H172,DT172,DF172 
DH173,DT173,DF173 
DH1 74, DTI 74. OF 174 
DH175,DT175,DF175 
DH176,DT176,DF176 
DH1 77. DT177.DF177 
DH200.DT200.DF 200 
DH201.DT201,DF201 
DH202.DT202,DF202 
DH203,DT203,DF203 
DH204.DT204.DF204 
DH205.DT205.DF205 
DH206.DT206.DF206 
DH207.DT207.DF207 
DH210.DT210.DF210 
DH211.DT211.DF211 
0H212.DT212.DF212 
DH213,DT213.DF213 
DH214.DT214.DF214 
DH215.0T215.Df215 
DH216.DT216.DF216 
DH217.DT217.DF217 
DH220.DT220.DF220 
DH221.DT221.0F221 
DH222.DT222.DF222 
DH223,DT223.DF223 
DH224,DT224.DF224 
DH225.DT225.DF225 
DH226.DT226.DF226 
DH227,DT227,DF227 
DH230.DT230.DF230 



EH2. . ^ 

EW231.DH231.DT231.DF 231 

EJ232. 

E«235. 
E«234. 
E«235. 
EW236. 
E«237, 



DH232,DT232.DF232 
DH233,3T233.DF233 
0H234.DT234.DF 234 
0H235.DT235.DF235 
DH236.DT236.0f236 
0H237.0T237.DF237 



ITEM 
ITEM 
ITEM 
ITE« 
I TEW 
ITEM 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
J TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
ITFH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
J TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
I TEH 
ITEH 
I TEH 



147 
150 
151 

152 

153 

154 

155 

156 

157 

160 

161 

162 

163 

164 

165 

166 

167 

170 

171 

172 

173 

174 

175 

176 

177 

200 

201 

202 

203 

204 

205 

206 

207 

210 

211 

212 

213 

214 

215 

216 

217 

220 

221 

222 

223 

224 

225 

226 

227 

230 

231 

232 

233 

234 

235 

236 

237 
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0OA032 
004042 
004052 
004062 
004072 
004102 
004112 
004122 
004132 
004142 
004152 
004162 
004172 
004202 
004212 
004222 
004232 
004242 
004252 
004262 
004272 
004302 
004312 
004322 
004332 
004342 
004352 
004362 
004372 
004402 
004412 
004422 
004432 
004442 
004452 
004462 
004472 
004502 
004512 
004522 
004532 
004542 
004552 
004562 
004572 
004602 
004612 
004622 
004632 
004642 
004652 
004662 
004672 
004702 
004712 
004722 
004732 



061 366 
061400 
061425 
061436 
061450 
061474 
061 506 
061557 
061570 
061615 
061506 
061642 
061 506 
061672 
061716 
061744 
061 756 
062014 
062026 
062114 
062141 
062226 
062277 
062353 
062440 
062472 
062531 
062601 
062636 
062650 
062733 
063020 
063065 
063162 
063207 
063220 
063232 
063312 
063406 
063514 
063564 
063640 
063710 
063760 
064030 
064100 
064150 
064220 
064270 
064340 
064410 
064446 
064460 
064472 
064472 
064616 
064666 



071726 
071404 
071274 
071726 
071404 
071274 
071520 
071726 
071404 
071274 
071520 
071726 
071520 
071726 
071404 
071274 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
0/1563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071626 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071626 
071563 
071563 
071563 
071563 



073256 
073206 
073206 
073256 
073206 
073206 
073206 
073256 
073206 
073206 
073206 
073256 
073206 
073256 
073206 
073206 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073312 
073522 
073522 
073574 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073522 
073646 
073646 
073712 
073646 
073646 
073646 
073646 



.WORD EM240,DH240,DT240,DF240 

.WORD EM241.DH241.DT241.DF241 

.WORD EH242,DH242.DT242,'>F242 

.WORD EH243.DH243.DT243,DF243 

.WORD EM244.DH244.DT244.DF244 

.WORD EH245,DH245,DT245,DF245 

.WORD En246,DH246,DT246,DF246 

.WORD EH247.DH247,DT247,DF247 

.WORD En250,DH250,DT250,DF250 

.WORD EH251,DH251.DT251.DF251 

.WORD EH252,DH252,DT252,DF252 

.WORD EH253.DH253.DT253.DF253 

.WORD EH254,DH254,DT254.DF254 

.WORD EH255.DH255.DT255,DF255 

.WORD EH256.DH256,DT256,DF256 

.WORD E«257,DH257,DT257.DF257 

.WORD EM260,DH260,DT260,DF260 

.WORD En261.DH261,DT261,DF261 

.WORD EH262,DH262,DT262,DF262 

.WORD EH263,DH263,DT263,DF263 

.WORD En264,DH264,DT264,DF264 

.WORD EM265,DH265,DT265,DF265 

.WORD En266,DH266,DT266,DF266 

.WORD EH267,DH267.DT267,DF267 

.WORD EH270,DH270,DT270,DF270 

.WORD EH271,DH271,DT271,DF271 

.WORD EH272.DH272.DT272,DF272 

.WORD EH273,DH273.DT273.DF273 

.WORD EH274,DH274,DT274,DF274 

.WORD EH275.DH275,DT275,DF275 

.WORD E1276.0H276.DT276.DF276 

.WORD EH277,DH277.DT277,DF277 

.WOHD En300.DH300,DT300,DF300 

.WORD En3C1.DH301,DT301 DF301 

.WORD En302, DM302, DT302.DF 302 

.WORD E«03.CH303,DT303,DF303 

.WORD E«304,DH304,DT304.DF304 

.WORD E«305,DH305,DT305,DF305 

.WORD En306,DH306.DT306,DF306 

.WORD E«307,DH307,DT307,DF307 

.WORD E«310,DH310,DT310,DF310 

.WORD E«311,DH311.DT311.DF311 

.WORD E«312,DH312,DT3U,DF312 

.WORD E«13,DH313,DT313,DF313 

.WORD En314«DH314,DT314,DF314 

.WORD E«315,DH315.DT315,DF315 

.WORD E«316,DH316,DT316,DF316 

.WORD E«17,DH317.DT317,DF317 

.WORD E«320,DH320,DT320.DF320 

.WORD E«321.DH321,DT321.DF321 

.WORD E«22.DH322.DT322,DF322 

.WORD E«323.DH323,DT323.DF323 

.WORD E«324.DH324,DT324,DF324 

.WORD E«325,DH325,DT325.DF325 

.WORD E«326,DH326.DT326.DF326 

.WORD EH327,DH327,DT327,DF327 

.WORD EH330.DH330,DT330.DF330 



ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 



240 

241 

242 

243 

244 

245 

246 

247 

250 

251 

252 

253 

254 

255 

256 

257 

260 

261 

262 

263 

264 

265 

266 

267 

270 

271 

272 

273 

274 

275 

276 

277 

300 

301 

302 

303 

304 

305 

306 

307 

310 

311 

312 

313 

314 

315 

316 

317 

320 

321 

322 

323 

324 

325 

326 

327 

330 
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SEQUENCE 29 



00A742 
004752 
00A762 
00A772 
005002 
005012 
005022 
005032 
005042 
005052 
005062 
005072 
005102 
005112 
005122 
005132 
005U2 
005152 
005162 
005172 
005202 
005212 
005222 
005232 
005242 
005252 
005262 
005272 
005302 
005312 
005322 
005332 
005342 
005352 
005362 
005372 
005402 
005412 
005422 
005432 
005442 
005452 
005/.62 
005472 
005502 
005512 
005522 
005532 
005542 
005552 
005562 
005572 
005602 
005612 
005622 
005632 
005642 



064742 
065012 
064446 
065110 
065173 
065242 
065277 
065353 
065422 
065472 
065542 
065617 
065724 
065774 
066073 
066117 
066130 
066232 
066302 
066352 
066422 
066472 
066576 
066632 
066722 
066740 
067050 
067116 
067216 
067301 
067364 
067447 
067503 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
067633 
067655 
067666 
070016 
070030 
070044 
070060 
070130 
070144 
070170 
070202 
070252 
070264 
070311 
070322 
070366 
070400 



071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071460 
071563 
071563 
071563 
071563 
071404 
071746 
071460 
071274 
072012 
072034 
072074 
072143 
072154 
072206 
072253 
072316 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
071404 
071274 
071460 
071726 
071404 
071274 
071460 
071726 
071404 
071274 
071460 
071726 
07U04 
071274 
071460 
071726 
071404 



073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073646 
073256 
073646 
073646 
073646 
073646 
073142 
073164 
073256 
073522 
073756 
073774 
074016 
073256 
074030 
074076 
074122 
074166 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
073206 
073206 
073256 
073256 
073206 
073206 
073256 
073256 
073206 
073206 
073256 
073256 
073206 
073206 
073256 
073256 
073206 



.WORD EM331.DH331.DT331.DF331 

.WORD EM332.DH332.DT332.DF332 

.WORD EH333.DH333.DT333.DF333 

.WORD E«334,DH334.DT334.DF334 

.WORD E«335.DH335,DT335,DF335 

.WORD E«336.DH336.DT336.DF336 

.WORD E«337.DH337.DT337,DF337 

.WORD E«340.DH340,DT340.DF340 

.WORD EM341.DH341,DT341.DF341 

.WORD EN342.DH342.DT342.DF342 

.WORD EN343.DH343.DT343.DF343 

.WORD E«344,DH344,DT344,DF344 

.WORD Ein345,DH345,DT345,DF345 

.WORD EM346.DH346.DT346,DF346 

.WORD E«347.DH347.DT347,DF347 

.WORD En350,DH350,DT350,DF350 

.WORD E«351,DH351.DT351,DF351 

.WORD E«52,DH352,DT352.DF352 

.WORD E«53,DH353.DT353,DF353 

.WORD E«354.DH354,DT354,DF354 

.WORD EM355,DH355,DT355.DF355 

.WORD EM356,DH356.DT356,DF356 

.WORD E«357.DH357,DT357.DF357 

.WORD E«360,DH360,DT360,DF360 

.WORD E«361,DH361,DT361.DF361 

.WORD EN362.DH362.DT362,DF362 

.WORD E«363.DH363,DT363.DF363 

.WORD E«364,DH364,DT364,DF364 

.WORD E«365,DH365.DT365.DF365 

.WORD E«366,DH366.DT366.DF366 

.WORD E«367,DH367,DT367,DF367 

.WORD EN370,DH370.DT370.DF3/0 

.WORD E«371.DH371.DT371.DF371 

.WORD E«372.DH372.DT372.DF372 

.WORD E«373.0H373.DT373.DF373 

.WORD E«374.DH374.DT374.DF374 

.WORD E«75,DH375.DT375.DF375 

.WORD E«376.DH376,DT376.DF376 

.WORD E«377.0H377.DT377,DF377 

.WORD En400,DH400,DT400,DF400 

.WORD En401,DH401,DT401,DF401 

.WORD En402,DH402,DT402,DF402 

.WORD Em03.DH403,DT403.DF403 

.WORD En404,Dh4(K,DT404,DF404 

.WORD En405,DH405,DT405,DF405 

.WORD En406,DH406,DT406«DF406 

.WORD En407,DHA07,DT407,DF407 

.WORD EmiO,DH410,DT410,DF410 

.WORD EM411.0H411.DT411.DF411 

.WORD E«412,DH412.DT412,DF412 

.WORD E«413.DH413.0T413,DF413 

.WORD En4H,DH414,Dr414,DF414 

.WORD EH415.DH415.DT415.DF415 

.WORD En416,DHA16,DT416,DF416 

.WORD EM417.DH417.DT417.DF417 

.WORD En420,DH420,DT420,DF420 

.WORD EM421.DH421.DT421.DF421 



ITEM 331 
ITEM 332 
ITEM 333 
ITEM 334 
ITEM 335 
ITEM 336 
ITEM 337 
ITEM 340 
ITEM 341 
ITEM 342 
ITEM 343 
ITEM 344 
ITEM 345 
ITEM 346 
ITEM 347 
ITEM 350 
ITEM 351 
ITEM 352 
ITEM 353 
ITEM 354 
ITEM 355 
ITEM 356 
ITEM 357 
ITEM 360 
ITEM 361 
ITEM 362 
ITEM 363 
ITEM 364 
ITEM 365 
ITEM 366 
ITEM 367 
ITEM 370 
ITEM 371 
ITEM 372 
ITEM 373 
ITEM 374 
ITEM 375 
ITEM 376 
ITEM 377 
ITEM 400 
ITEM 401 
ITEM 402 
ITEM 403 
ITEM 404 
ITEM 405 
ITEM 406 
ITEM 407 
ITEM 410 
ITEM 411 
ITEM 412 
ITEM 413 
ITEM 414 
ITEM 415 
ITEM 416 
ITEM 417 
ITEM 420 
ITEM 421 
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005652 


070425 


071274 


073206 


.WORD 




005662 


070436 


071460 


073256 


.WORD 




005672 


070450 


071726 


073256 


.UORO 




005702 


070462 


071404 


073206 


.UORD 




005712 


070506 


071274 


073206 


.yORD 




005722 


070520 


071460 


073256 


.UORD 




005732 


070572 


071726 


073256 


.UORD 




005742 


070604 


071460 


073256 


.UORD 




005752 


070632 


071404 


073206 


.UORD 




005762 


070657 


071274 


073206 


.UORD 




005772 


070670 


071460 


073256 


.UORD 




006002 


070740 


071726 


073256 


.WORD 




00601 2 


070752 


071460 


073256 


.WORD 




006022 


071000 


071404 


073206 


.WORD 




006032 


071022 


071404 


073206 


.UORD 






A71 A/ / 




A7/ 01ft 


.UORD 




006052 


071044 


072143 


074226 


.UORD 




006062 


071044 


072143 


Q7k22b 


.UORD 




006072 


071171 


071340 


073206 


.UORD 


2040 












2041 












2042 










.S8TTL ACT11 



E«422,DH422 
EM423,DH423 
EM424,DH424 
E«425,DH425 
E«426,DH426 
E«427,DH427 
EM430,DH430 
EM431.DH431 
EM432.DH432 
EM433.DH433 
En434,DH434 
En43S,DH435 
En436,DH436 
E«437,DH437 
En440,DH440 
En441,DH441 
EH442,DH442 
E«443,DH443 
EM444,DH444 



.DT422.DF422 
.DT423,DF423 
.DT424.DF424 
.DT425.DF425 
,DT426.DF426 
.DT427.DF427 
.DT430.DF430 
.DT431,DF431 
.DT432.DF432 
.DT433,DF433 
,DT434,DF434 
.DT435.DF435 
,DT436,DF436 
.DT437,DF437 
.DT440,DF440 
.DT441,DF441 
.DT442.DF442 
,DT443,DF443 
,DT444,DF444 



.ITEM 422 
;JTE« 423 
;ITEM 424 
;]TEW 425 
.ITEM 426 
;ITE« 427 
.ITEM 430 
;ITE« 431 
;ITE« 432 
;ITE« 433 
;]TE« 434 
;1TE« 435 
;iTEn 436 
;ITE« 437 
;ITE« 440 
;ITE« 441 
;1TE« 442 
;ITEH 443 
.ITEM 444 



006102 
000046 

000046 046104 
000052 

000052 000000 



2043 



006102 



HOOKS REQUIRED BY ACTII 
$SVPC-. 
.=46 
SENDAD 
.=52 

.UORD 0 
.=$SVPC 

.SBTTL APT PARAMETER BLOCK 



;SAVE PC 

:;1)SEr L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO ZERO 
RESTORE PC 



SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 





006102 




.$x=. 

.=24 




.■SAVE CURRENT LOCATION 




000024 




• 


;SET POWER FAIL TO POINT TO START OF PROGRAM 


000024 


000200 




200 


« 


;FOR APT START UP 




000044 




.=44 


• 


;POINT TO APT INDIRECT ADDRESS PNTR. 


000044 


006102 




SAPTHDR 


• 


;POiNT TO APT HEADER BLOCK 




006102 




.=.fx 




;RESET LOCATION COUNTER 



006102 
006102 
006104 
006106 
006110 
006112 
006114 

2044 
2045 

2046 006116 



006116 
006122 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



000000 
001316 
000010 
000040 
000000 
000052 



012706 001100 
005026 



SAPTHD: 

SHIBTS: .UORD 

SMBADR: .UORD 

STSTM: .UORD 

SPASTM: .WORD 

SUNITM: .UORD 
.UORD 



0 :;TUO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL .-.-ADDRESS OF APT MAILBOX (BITS 0-15) 
10 ;;RUN TIM OF LONGEST TEST 

40 ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

0 ;:ADDITIONAL RUN TIME (SECS) Or A PASS FOR EACH ADDITIONAL UNIT 

SETEND-$nAIL/2 .-.-LENGTH MAI LBOX-E TABLE (WORDS) 



START: 

.SBTTL INITIALIZE THE COMMON TAGS 

;; CLEAR THE COMMON TAGS (SCMTAG) AREA 

MOV mMTAG.R6 ;:F1RST LOCATION TO BE CLEARED 

CLR (R6)^ CLEAR MEMORY LOCATION 
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SEQUENCE 31 



INITIALIZE THE 


COMMON TAGS 




006124 


022706 


001140 




006130 


001 374 






006132 


012706 


001100 




006136 


012737 


046170 


000020 


006U4 


012737 


000340 


000022 


006152 


012737 


046514 


000030 


006160 


012737 


000340 


000032 


006166 


012737 


050704 


000034 


0061 74 






000036 


006202 


012737 


050766 


000024 


006210 


012737 


000340 


000026 


006216 


013737 


045464 


045452 


00622A 


005037 


001302 




006230 


005037 


001304 


001115 


006234 


112737 


000001 



2047 



006242 
006250 
006256 
006264 
006272 
006274 
006300 
006302 
006310 
006312 
006316 
006324 
006330 
006336 



006344 
006350 
006356 
006364 
006372 
006400 

006402 
006404 
006410 
006412 
006420 
006426 
006432 
006436 
006444 
006446 
006454 



012737 
012737 
012737 
012737 
005046 
012746 
000006 
012737 
000402 
062706 
012737 
005037 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001C12 

000403 
012716 
000002 
012737 
012737 
012637 
005037 
132737 
001403 
012737 



046150 
000340 
045210 
006312 

006302 



000014 
000016 
046150 
000010 



000010 
000012 
046156 
006330 
006336 



0000C4 
006404 
177570 
177570 
y77777 



006412 

000176 
000174 
000004 
001324 
000200 

001340 



000010 

001106 
001110 



000004 
001140 
001142 
172540 



001140 
001142 



001337 
001140 



006454 
006460 
006462 



005227 y77777 
001047 

022737 046104 000042 



CMP 
BNE 
MOV 
.-.INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
NOV 
CLR 
CLR 

Move 

.•.INITIALIZE 



#SUR,R6 ;;DONE? 

.-6 ;;LOOP BACK IF NO 

#STACK,SP ;; SETUP THE STACK POINTER 

FEW VECTORS 

#$SCOPE,i#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340,8#IOTVEC*2 .'.LEVEL 7 

#$ERROR,i#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.a#EMTVEC*2 ;;LEVEL 7 

#$TRAP,*rTRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340. a«TRAPVEC42; LEVEL 7 
#$PURON.d#PWRVEC : .POWER FAILURE VECTOR 
/r340,d#PWRVEC^2 .-.LEVEL 7 



$ENDCT,$EOPCT 
$TIMES 
$ESCAPE 
#1.$ERMAX 
THE '7-8IT" TRAP 



.-.-SETUP END-OF -PROGRAM COUNTER 
;; INITIALIZE NUMBER OF ITERATIONS 
; .-CLEAR THE ESCAPE ON ERROR ADDRESS 
;; ALLOW ONE ERROR PER TEST 
VECTOR. THEN LOAD LOCATION 'IRTRN", IN 



.-.THE 'tND-OF-PASS" ($EOP) ROUTINE. WITH A OR "RTT". 



000006 046150 64$ 



MOV 
MOV 
MOV 
MOV 
CLR 
NOV 
RTT 
NOV 
BR 
ADD 
NOV 
CLR 
NOV 
NOV 

.-.-SIZE FOR A 
;; EQUAL TO A 
NOV 
NOV 
MOV 
NOV 
CMP 
BNE 



65$: 
66$: 



4r$RTRN.a#TBITVEC 
#340.WTBITVEC*2 
#RTI.$RTRN 
#65$,»rRESVEC 
-(SP) 

#64$, -(SP) 

#RTT,$RTRN 
66$ 

#10. SP 



;;SET '7" BIT 
.-.-LEVEL 7 



VECTOR TO $RTRN 



.-.-SET $RTRN TO A RTI 
;;TRY TO DO A RTT 
;; DUMMY PS 
::AND PC 
;;TRV THE RTT 
;;RTT IS LEGAL —SET 



$RTRN TO A RTT 



;;RTT ILLEGAL— CLEAN OFF THE STACK 
#RESVEC*2.a#RESVEC .-.-RESTORE TRAP CATCHER 
$TBIT ;; CLEAR '7" BIT SWITCH 

#..$LPADR .-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#..$LPERR .-.-SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



67$ 
68$ 
69$ 



BR 

NOV 

RTI 

NOV 

NOV 

NOV 

CLR 

BITB 

BEQ 

NOV 



-1". SETUP FOR A 
a#ERRVEC.-(SP) 
#67$.a#ERRVEC 
#DSWR,SWR 
#DDISP. DISPLAY 

#-1 ,aswR 
69$ 

68$ 

#68$, (SP) 



SOFT'iARE SWITCH REGISTER. 
:; AVE ERROR VECTOR 
; aET UP ERROR VECTOR 
:::>ETUP FOR A HARDWARE SWICH REGISTER 
:;AND A HARDWARE DISPLAY REGISTER 
::TRY TO REFERENCE HARDWARE SWR 
; .-BRANCH IF NO TINEOUT TRAP OCCURRED 
:;AND THE HARDWARE SWR IS NOT = -1 
.-.BRANCH If NO TINEOUT 
;;SET UP FOR TRAP RETURN 



#SWREG,SWR 
#DISPREG, DISPLAY 
(SP)*,a#ERRVEC 
$PASS 

#APTSIZE.$E'iVN 
70$ 

#$SURE6,Sk;< 



70$: 

.SBTTL TYPE PROGRAM NANf 
.-.TYPE THE NAME OF THE Pf OGRAM 

INC #-1 

BNE 71$ 

CMP #$ENDAD.««42 



.-.POINT TO SOFTWARE SWR 

.-.-RESTORE ERROR VECTOR 
.-.-CLEAR PASS COUNT 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
;;NO,USE APT SWITCH REGISTER 



IF FIRST PASS 
.-.-FIRST TINE? 
.-; BRANCH IF NO 
;.-ACT-11? 



CKFPCDO FP11F FLTG PHJ PRT C 
TYPE PR06RAW NAME 



6 3 

MACRO HI 113 30-0CT-81 11:15 PAGE 9-7 



SEQUENCE 



0OW70 
006A72 

006476 
006502 
006504 
006512 
0065H 
006522 
006524 
006526 
006530 
006536 
006536 



001U3 
104401 

005737 
001012 
123727 
001406 
023727 
001005 
104405 
000403 
112737 

000420 



006540 
000042 
001336 
001140 



096600 

2048 006600 104401 006606 
006604 000434 

006676 

2049 006676 104401 006704 
006702 000426 

006760 

2050 006760 005037 046164 

2051 006764 



000001 
000176 



000001 001134 



.S8TTL 



73$: 
74$: 

;;72$: 
h$: 



;:76$: 
H$: 



•;78$: 
LOOP: 



BEO 71$ .-.BRANCH IF YES 

TYPE ,72$ .-.TYPE ASCIZ STRING 

GET VALUE FOR SOFiyARE SWITCH REGISTER 



TST 
BNE 
C«PB 
BEO 
C«P 
BNE 
GTSUR 
BR 

novB 

BR 



TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCJZ 
CLR 



»r42 
73$ 
$ENV.#1 
73$ 

SyR,#SUREG 
74$ 

74$ 

#1.$AUT0B 
71$ 



::ARE WE RUNNING UNDER XXDP/ACT? 
.-.BRANCH IF YES 
;;ARE WE RUNNING UNDER APT? 
; .-BRANCH IF YES 

.-.-SOFTWARE SWITCH REG SELECTED? 

: .-BRANCH IF NO 

;;6ET SOFT-SWR SETTINGS 

;;SET AUTO-MODE INDICATOR 

GET OVER THE ASCIZ 



.ASCJZ <CRLF>*CKFPCDO FP^IF FLTG PNT PRT C*<CRLF> 



,76$ .-.TYPE ASCIZ STRING 

^5$ ;;GET OVER THE ASCIZ 

lEOP MESSAGE WILL PRINT EVERY 1000 PASSES (IS SECONDS) I <CRLF> 

^78$ ;;TYPE ASCIZ STRING 

f7% ;;GET OVER THE ASCIZ 

I HIT ANY KEY TO ENABLE /DISABLE EOP MESSAGES :<CRLF> 



EPENDS 



;CLR EOP FLAG INITIALLY ENABLING EOP'S ;DPM002 



CKFPCDO FP11F FLTG PNT PRT C HACRO mi13 30-0CT-81 11:15 
TEST # 1 - STF WITH ILLEGAL ACClfWLATOR TEST 
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SEQUENCE 33 



2057 



00676A 

2058 006766 

2059 006774 
2060 

2061 006776 

2062 007000 

2063 007006 
2064 

2065 0070U 

2066 

2067 

2068 

2069 

2070 007016 

2071 007020 

2072 007024 

2073 007026 

2074 007032 
2075 

2076 007034 

2077 

2078 

2079 007036 

2080 007040 

2081 007044 

2082 007046 
2083 

2084 

2085 007052 

2086 007054 

2087 007056 

2088 007062 

2089 007066 

2090 007072 

2091 007076 

2092 007102 

2093 007106 
2094 

2095 007110 

2096 007112 
2097 

2098 007114 

2099 007116 
2100 

2101 007120 

2102 007122 
2103 

'104 007124 
2105 

2106 007126 



000004 

012737 006774 001110 
005000 

170100 

012737 007036 000244 
012737 007014 001236 

174007 



170200 
010037 
170300 
010037 
104001 

000434 



011600 
022700 
001402 
000137 



170204 
170305 
010437 
010537 
012702 
012703 
010237 
010337 
022626 

020204 
001402 

104002 
000403 

020305 
001401 

104003 



001240 
001242 



007016 
051732 



001240 
001242 
100000 
000002 
001244 
001246 



SBTTL TEST # 1 - STF WITH ILLEGAL ACCUMULATOR TEST 
iTEST 1 STF WITH ILLEGAL ACClfWLATOR TEST 



•THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL ACCUMULATOR 7. MODE 0. 



TST1 : 
1000S: 



IS: 



SCOPE 

NOV 

CLR 

LDFPS 

nov 
nov 

STF 



#1000S,SLPERR 
RO 

RO 

#200S,FPVECT 
#1S,STNP2 

AC0.AC7 



.SET UP THE LOOP ON ERROR ADDRESS. 
;SET THE FPS. 



:SET UP FOR FP TRAPS. 



.•THIS TEST INSTRUCTION SHOULD 
.■CAUSE A TRAP. 



;DP«002 



.•REPORT FAILURE OF USE OF ILLEGAL ACCUMULATOR 7 TO CAUSE AN FPP TRAP. 



21 OS: 



STFPS 

NOV 

STST 

NOV 

ERROR 

BR 



RO 

R0.$TNP3 
RO 

R0.STNP4 

♦1 

240S 



;GE1 FPS. 
;GET FEC. 

;STF WITH ILLEGAL ACCUMULATOR. NODE 
;0, DIDN'T TRAP. ST 765 TO ST 537. 



.TRAP TO 200S. HERE. WHEN THE EXPECTED ERROR OCCURS. 



200S: 



220S: 



230S: 



240S: 



NOV 
CMP 
BEQ 
JMP 



STFPS 

STST 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

CMP 

CMP 
BEO 

ERROR 
BR 

CMP 
BEO 



(SP).RO .MAKE SURE THE ERROR OCCURRED 

#210S.R0 :AT THE CORRECT ADDRESS. 

220S .•BRANCH IF TRAP ADDRESS CORRECT. 

FPSPUR :IF INCORRECT GO REPORT SPURIOUS 
;FP TRAP. 



R4 

R5 

R4.$TNP3 

R5.$TMP4 

#ld000O,R2 

*2.R3 

R2.$TNP5 

R3.STNP6 

(SP)*.(SP)* 

R2.R4 
23dS 

♦2 

240S 

R3-R5 
246S 



ERROR ^3 



.-GET FPS. 
;6ET FEC. 

.-SAVE DATA INCASE OF ERROR. 

.•EXPECTED FPS 
.EXPECTED FEC 



.•RESET THE STACK. 

:WAS FPS CORRECT? 
'BRANCH IF YES 

•OTHERWISE REPORT FPS INCORRECTLY 
;SET AFTER USE OF ILLEGAL ACC. 



.WAS THE FEC CORRECT? 
.BRANCH IF CORRECT. 
.OTHERWISE REPORT INCORRECT FEC 
.•AFTER USE OF ILLEGAL ACC. 



I 

CKFPCOO FPllF FLTG PNT PRT C HACRO mil3 30-OCT-81 11:15 PAGE 10- 
TEST # 1 - STF WITH ILLEGAL ACCUMULATOR TEST 

007126 104412 RSETUP 



60 INITIALIZE THE fPS AND STACK; MO 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG PWT PRT C MACRO Hi 113 
TEST # 2 - FDST HOOE 1, FLOATING HODE, TEST 



30-OCT-81 11:15 



J 3 
PAGE 11 



SEQUEMCE 35 



2112 



2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

21 3A 

2135 

2136 

2137 

2138 

2139 

2U0 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 



007130 
007132 
007140 
007144 
007150 
007154 
007156 

007160 
007164 
007166 
007172 

007174 
007200 
007202 
007204 
007212 



007220 
007224 

007226 
007232 
007234 

007236 
007242 
007246 
007250 
007252 
007254 
007256 
007262 
007264 
007270 
007272 



000004 
012737 
012700 
012701 
012702 
010021 
077202 

012700 
170100 
012700 
172410 

012700 
005002 
170102 
012737 
010037 



007216 174010 



022700 
001404 

010037 
104004 
000456 

012700 
012701 
022021 
001031 
02201 1 
001027 
022720 
001034 
022710 
001031 
000437 



007274 Mim 
007310 Mim 



007324 
007330 



007334 
007342 



123456 
034567 



007140 
000014 



000200 
007324 

007310 



007216 
001240 



007310 
001242 



007310 
007324 



)77777 
}77777 

177777 

}77777 

023456 
045671 



.SBTTL TEST # 2 - FDST HOOE 1, FLOATING MODE. TEST 
iTESrr** FDST MODE 1, FLOATING MODE, TEST 
•THIS IS A TEST OF THE STF INSTRUCTION USING FDST NODE 1. 



001110 



001236 



012737 007324 
012737 007310 



177777 
177777 



001242 
001240 







TST2: 


SCOPE 








MOV 




MOV 




MOV 


21 OS: 


MOV 




SOB 




NOV 




I DFPS 




NOV 




LDD 




NOV 




CLR 




LDFPS 




NOV 




NOV 


240S- 


STF 




CNP 








NOV 




ERROR 




BR 


245S: 


NOV 




NOV 




CNP 




BNE 




CNP 




BNE 




CNP 




BNE 




CNP 




BNE 




BR 


200S: 


.WORD 


230S: 


.WORD 


220$: 


.WORD 




.WORD 



flOOOS.SLPERR 
#-1 -RO 
#206$.R1 
#14, R2 
RO.(RI)* 
R2,210$ 

#200, RO 
RO 

#220S,R0 
(R0)«AC0 

#230S,R0 

R2 
R2 

#240S,$TNP2 
R0,$TNP3 

ACO,(RO) 

#230$, RO 
245S 

R0,STNP4 
♦4 

250S 

#230$, RO 
#220$,R1 

(R0)*,(R1)* 
260$ 

(R0)*,(R1) 
260S 

#-1-(R0)» 
270i 
#-1,(R0) 
270i 

250$ :G0 TO 



SET UP THE LOOP ON ERROR ADDRESS. 
SET UP A BACKROUND PATTERN IN THE 
INPUT BUFFER. 



.SET FD NODE. 

:PUT TEST DATA INTO ACO. 



;DPN002 



;FDST ADDRESS. 
; CLEAR THE FPS, 



TEST INSTRUCTION. 

WAS RO nODIFIED DURING EXECUTION? 
BRANCH IF RO NOT NODIFIED, CORRECT. 

OTHERWISE REPORT ERROR. RO NODIFIED. 

60 TO NEXT TEST. 

CHECK THE DATA IN THE OUTPUT BUFFER. 



.•BRANCH IF INCORRECT. 

.-BRANCH IF INCORRECT. 
:WAS FLOATING NODE USED? 
.BRANCH IF NOT. 



NEXT TEST. 



; REPORT 
^60$: 



DATA IN 

NOV 

NOV 



-1,-1,-1,-1,-1,-1 

-1,-1,-1.-1,-1,-1 

123456-23456 
34567.^5671 

OUT PUT BUFFER INCORRECT. 

#220$,$TNP4 

#230$,$TNP3 



CKFPCDO FP11F FLTG PNT PRT C MACRO mil3 
TEST # 2 - FDST MODE 1, FLOATING MODE, TEST 
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SEQUENCE 36 



2162 
2163 
21 6A 
2165 
2166 
2167 
2168 
2169 
2170 



007350 10A005 
007352 000A07 



007354 012737 

007362 C'2737 

007370 104006 

007372 

007372 104412 



ERROR 
BR 



♦5 

250S 



:BAD DATA. 



;REP0RT FLOATING MODE NOT USED. BUT FD FAILED. 
007324 001242 ^70S: MOV »220$.$TnP4 

007310 001240 «0V^^ J230$,»THP3 ,.5, 245 INTO 244 (BUT FD, 



250$: 



RSETUP 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLT6 F>NT PRT C 
TEST # 3 - FDST NODE 2 TEST 

2176 



FWCR0«1113 30-OCT-81 11:15 PAGE 12 



SEQUENCE 17 



007374 

2177 

2178 007376 

2179 007404 

2180 007410 

2181 007414 

2182 007420 

2183 007422 
21 84 

2185 007424 

2186 007430 

2187 007432 

2188 007436 
2189 

2190 007440 

2191 007444 

2192 007446 

2193 007450 
2194 

2195 007456 
2196 

2197 007460 
2198 

2199 007464 

2200 007466 

2201 007472 

2202 007500 

2203 007502 

2204 007504 

2205 007510 

2206 007514 

2207 007516 

2208 007520 

2209 007522 

2210 007524 

2211 007530 

2212 007532 

2213 007536 

2214 007540 

2215 007542 

2216 007556 

2217 007572 

2218 007574 

2219 007576 

2220 007600 
2221 

2222 007602 

2223 007610 

2224 007616 

2225 007620 



000004 

012737 
012700 
012701 
012702 
010021 
077202 

012700 
170100 
012700 
172410 

012700 
005002 
170102 
012737 

174020 



001407 
010037 
012737 
104007 
000530 
012700 
012701 
022021 
001031 
022021 
001027 
022027 
001024 
022027 
001021 
000433 
M7777 
\77777 
076543 
065432 
054321 
043210 

012737 
012737 
104010 
000461 



007404 
}77777 
0075i,2 
000014 



000200 
007572 

007556 

007456 



022700 007562 



001242 
007562 



007556 
007572 



^77777 
^77777 



}77777 
-[77777 



mS72 
007556 



.S8TTL TEST # 3 - FDST NODE 2 TEST 
FDST NODE 2 TEST 



.••TEST 3 

••THIS IS A TEST OF BOTH STF AND STD WITH FDST NODE 2. 



001110 



TST3: SCOPE 
.•FIRST TEST STF. 



1000S: 
21 OS: 



001236 



240$: 



001240 



250$: 



U7777 
y77777 



001240 
001242 



200$ 
230$ 
220$ 



10V 
NOV 
NOV 
NOV 
NOV 
SOB 

NOV 
LDFPS 
NOV 
LDD 

NOV 
CLR 
LDFPS 
NOV 

STF 

CNP 

BEO 

NOV 

NOV 

ERROR 

BR 

NOV 

NOV 

CNP 

BNE 

CNP 

BNE 

CNP 

BNE 

CNP 

BNE 

BR 

.WORD 
.yORD 
76543 
65432 
54321 



#1000$,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

#-l.RO ;SET UP THE OUTPUT BUFFER. 

#206$.R1 

#14. R2 

RO.(Rl)* 

R2.210$ 



;DPN002 



#200. RO 
RO 

#220$. RO 
(RO).ACO 

#230$. RO 

R2 
R2 

#240$.$TNP2 

ACO.(RO)* 

#230$*4.R0 



;SET FD NODE. 
.•SETUP ACO. 

;FDST ADDRESS. 
.-SET FPS. 



250$ 
R0.$TNP4 
#230$*4.$TNP3 

♦7 

260$ 

#230$. RO 
#220$, Rl 

(R0)*,(R1)* 
270$ 

(R0)*.(R1)* 
270$ 

(R0)*.#-1 
270$ 

<R0)*.#-1 
270$ 
280$ 

-1.-1.-1.-1.-1.-1 
-1.-1.-1.-1.-1.-1 



TEST INSTRUCTION. 

WAS RO INCRENENTED BY 4 PROPERLY? 

BRANCH IF RO CORRECT. 

REPORT RO INCORRECT AFTER FDST NODE 2. 

BAD CONSTANT USED OR DIDN'T GO 527 TO 642 

WAS THE OUTPUT DATA CORRECT? 



.•BRANCH IF INCORRECT. 
'BRANCH IF INCORRECT 

:SEE IF ANY OTHER DATA BUFFER WORDS WERE MODIFIED. 
.BRANCH IF INCORRECT. 

.•BRANCH IF INCORRECT. 



43210 

;REP0RT OUTPUT DATA INCORRECT: 

J70$: NOV #220$.$TNP3 

NOV #230$.$TNP4 

ERROR ♦lO 

BR 260$ 



.-BAD DATA 



CKfPCDO FP11F FLTG PNT PRT C 
TEST # 3 - FDST HOPE 2 TEST 
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12' 



2226 
2227 
222% 

2229 007622 

2230 007630 

2231 00765A 

2232 007636 

2233 0076A2 

2234 007644 

2235 007646 

2236 007652 

2237 007654 

2238 007660 

2239 007662 

2240 007666 

2241 007674 
22*,2 007676 

2243 007702 

2244 007704 

2245 007710 

2246 007716 

2247 007720 

2248 007722 

2249 007726 

2250 007732 

2251 007736 

2252 007740 

2253 007742 

2254 007744 
2255 

2256 007746 

2257 007754 

2258 007762 

2259 007764 
007764 



012737 
012700 
010001 
012702 
010021 
077202 
012700 
170100 
012700 
172410 
012700 
012737 
174020 
022700 
001407 
010037 
012737 
104011 
000421 
012700 
012701 
012702 
022021 
001002 
077203 
000407 

012737 
012737 
104012 

104412 



007630 
007542 

000014 



000200 

007572 

007556 
007674 

007566 

001242 
007566 



007556 
007572 
000004 



007572 
007556 



:N0W TEST STD MODE 2. 



001110 



280$: 



290$: 



001236 



001240 



300$: 



001240 
001242 



310$: 



1$: 



•REPORT 
i20$: 



260$: 



MOV «280$,$LPERR 

MOV «200$,R0 

MOV RO.RI 

MOV «14,R2 

MOV R0,(R1)« 

SOB R2.290$ 

MOV #200, RO 

LDFPS RO 

MOV #220$, RO 

LOD (RO).ACO 

MOV #230$. RO 

MOV #300$,$TMP2 

STD ACO-CRO)* 

CMP #236$*10.R0 

BEO 310$ 

MOV R0.$TMP4 

MOV #230$*10.$TMP3 

ERROR ♦ll 

BR 260$ 

MOV #230$, RO 

MOV #220$, R1 

MOV #4.R2 

CMP (R0)*,(R1)» 

BNE 320$ 

SOS R2.1$ 

BR 260$ 

DATA INCORRECT. 

MOV #220$,$TMP3 

MOV #230$,$TMP4 

ERROR ♦12 

RSETUP 



SEQUENCE 



.SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
.•SET UP DEFAULT INPUT DATA BUFFER. 

t 

.'ENTER FLOATING DOUBLE MODE. 
.■LOAD ACO. 

.-SET DESTINATION ADDRESS. 
.•TEST INSTRUCTION. 

;UAS RO INCREMENTED BY 10 CORRECTLY-> 

.BRANCH IF CORRECT. 

.-REPORT RO INCORRECTLY INCREMENTED. 

:D0 NOT INCREM BY 10 BAD CONSTANT 

;DID THE DATA REACH THE OUTPUT BUFFER C0«RECTLr-> 

;BRANCH IF INCORRECT. 



.-BAD DATA 

;G0 INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTUARE 
.-VIRTUAL CONSOLE SVITCH REGISTER (HAS 
.THE USER TYPED CONTROL G?). 



CKFPCDO FPIIF FLTG PNT PRT C »WCRO HlllS 
TEST • 4 - FDST NODE 2. WITH 6R7. TEST 



50-OCT-81 11:15 PACE 



N 

15 



SEQUENCE 39 



2265 



007766 

2266 007770 

2267 007776 

2268 010002 

2269 010006 

2270 010012 

2271 0100U 

2272 010016 

2273 010022 

2274 010024 

2275 010030 

2276 010032 

2277 010040 

2278 010046 

2279 010050 
2280 

2281 
2282 
2283 
2284 
2285 

2286 010052 

2287 010054 

2288 010056 

2289 010060 

2290 010062 

2291 010064 

2292 010070 

2293 010074 

2294 010100 

2295 010102 

2296 010104 

2297 010106 

2298 010110 

2299 010112 
2500 010116 
2301 010120 
2302 

2303 010122 

2304 010124 

2505 010126 

2506 010150 
2507 

2508 010152 

2509 010154 

2510 010156 

2511 010140 
2512 

2515 010142 
2514 010144 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
172410 
012757 
012737 
005001 
005004 



174027 
005201 
005201 
005201 
005201 
012700 
012702 
012703 
022022 
001051 
077305 
005704 
001056 
022701 
001055 
000474 

005201 
005201 
005201 
005201 

00520< 
005204 
005204 
005?04 

005204 
005201 



.S8TTL TEST # 4 - FDST NODE 2. WITH (W7, TEST 
;-iTEST*4 * FDST MODE 2, WITH 6R7, TEST 



;*THIS IS A TEST OF STF WITH 6R7 NODE 2 OR IMMEDIATE NODE. 



007776 
010054 
010122 
000004 



000200 
010152 



001110 



010152 000004 
010052 001256 



TST4: SCOPE 

NOV «200S.SLPERR 

200$: NOV «210S.R0 

NOV #220$. R1 

NOV #A-R2 

1$: NOV (R0)*.(R1)* 

S08 R2.1S 

NOV «2qO,ro 

LDFPS RO 
NOV #2501. RO 
LDD (RO).ACO 
NOV #240S,ERRVECT 
NOV #250S.STNP2 
CLR R1 
CLR R4 

THIS IS THE TEST INSTRUCTION. IT SHOULD NODIFY THE FIRST LOCATION 
AFTER IT TO BE AN INCRENENT R4, INC R4, INSTRUCTION INSTEAD 
OF AN INCRENENT R1 INSTRUCTION. THE INCRENENT R4 SHOULD NOT BE 
EXECUTED SINCE THE PC SHOULD BE INCREMENTED BY TWO DURING INNEDIATE 
NODE ADDRESSING. THUS AFTER THE EXECUTION OF THE NEXT 5 INSTRUCTIONS 
R1 SHOULD CONTAIN 5 AND R4 SHOULD CONTAIN 0. 



;SET UP THE LOOP ON ERROR ADDRESS. ;DPN002 
:SET UP THE DATA BUFFER FOLLOWING THE TEST INSTRUCTION. 



.-ENTER FLOATING DOUBLE NODE. 
;SET UP ACO. 

.-SET UP FOR AN ODD ADDRESS. 



0101' 2 
010054 
OOOOOA 



000005 



250$: STD AC0.(R7)* 

21 OS: INC R1 

INC R1 

INC R1 

INC R1 

NOV «260S,R0 

NOV «210S.R2 

NOV #4-R5 

280$: CNP (R0)*.(R2)* 

BNE 270$ 

S08 R5.2eO$ 

TST R4 

BNE 290$ 

CNP #5.R1 

BNE 290$ 

BR 500$ 



.TEST INSTRUCTION. 
.THE STD INSTRUCTION SHOULD CHANGE THIS TO INC R4. 



.-SEE If THE DATA WAS OUTPUT CORRECTLY. 



.-BRANCH IF INCORRECT. 

;NAKE SURE R4 IS 0. 

.BRANCH IF R4 IS INCORRECT. 

.-SEE IF R1 IS CORRECT. 

.-BRANCH IF R1 IS INCORRECT. 



;THESE ARE TEST DATA PATTERNS USED TO SET UP THE OUTPUT BUFFER AT 210$. 
220$: INC R1 
INC R1 
INC R1 
INC R1 

THIS IS THE DATA PUT IN ACO BEFORE EXECUTION OF THE STD. 



^50$ 



INC 
INC 
INC 
INC 



R4 
R4 
R4 
R4 



THIS IS THE EXPECTED DATA AT 210$ AFTER EXECUTION OF THE STD. 



^60$: 



INC 
INC 



R4 
R1 



CKFPCDO FP11F FLTG F>NT P.9T C 
TEST # 4 - FDST MODE 2. WITH 



MACRO ni113 
GH7. TEST 



30-OCT-81 11:15 PAGE 



B A 

13-1 



2315 010U6 

2316 0 1 01 50 
2317 

2318 

2319 010152 

2320 010154 

2321 010160 

2322 010162 

2323 010166 

2324 010170 
2325 

2326 010174 

2327 010200 

2328 010206 

2329 010210 

2330 010212 

2331 010214 

2332 010220 

2333 010222 

2334 010224 
2335 

2336 

2337 010226 

2338 010234 

2339 010242 

2340 010244 
2341 

2342 
2343 
2344 

2345 010246 

2346 010254 

2347 010256 

2348 010260 

2349 010266 

2350 010270 

2351 010274 

2352 010300 

2353 010302 

2354 010304 

2355 010310 

2356 010312 
010312 



005201 
005201 



011602 
032702 
001005 
020227 
001412 
000137 

010237 
012737 
022626 
104013 
000^37 
010237 
022626 
104014 
000432 



012737 
012737 
104015 
000422 



012737 
005704 
001404 
012737 
000410 
012702 
062701 
006301 
160102 
010237 
104016 

104412 



INC 
INC 

;IF A FAILURE 
;4 TO HERE: 



R1 
R1 
IN THE 



000001 

010056 

051774 

001236 
010056 

001236 



010054 
010142 



001240 



001240 
001242 



^40$: 



: REPORT 
^10$: 



320$: 



:REP0RT 
^70$: 



MOV 
BIT 
BNE 
CMP 
BEQ 
JMP 



(SP).R2 
31 6s 

R2.#210$*2 
326$ 



FDST FLOWS RESULTS 
:SEE IF 



SEQUENCE 

IN AN ODD ADDRESS TRAP THROUGH 

THE TRAP WAS BECAUSE OF AN ODD ADDRESS. 



.BRANCH 
.SEE IF 
.•BRANCH 



IF rES. 

THE TRAP OCCURRED 
IF YES. 



AT THE TEST INSTRUCTION. 



CPSPUR .OTHERWISE REPORT A SPURIOUS TRAP THROUGH VECTOR 4. 



A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 

MOV R2,$TMP2 

MOV #210$t2,$TMP3 

CMP (SP)*.(SP)* 

ERROR +13 

BR 300$ 

MOV R2.$TMP2 

CMP (SP)*.(SP)* 

ERROR ^14 

BR 300$ 



;BAD CONSTANT #2 * PC ODD ADDR. 



;0DD ADDRESS TRAP 
.•WRONG MODE USED. 



DATA INCORRECT: 
MOV ir210$,$TMP3 
MOV »260$,$TMP4 
ERROR +15 
BR 300$ 



;BAD DATA BUT GR7 FAIL 



010056 001240 290$ 



.•REPORT PC INCORRECT MODIFIED DURING THE EXECUTION OF FDST IMMEDIATE 
.MODE. THE PC SHOULD HAVE BEEN INCREMENTED BY 2 BUT IT WASN'T. 
USE R1 AND R4 TO COMPUTE THE ACTUAL ACTION THAT WAS TAKEN ON THE PC. 
#210$*2.$TMP3 

;IS R4 CLEAR. 



010054 001242 

010056 
177775 



001242 



100$: 



110$: 
300$: 



MOV 
TST 
BEO 
MOV 
BR 
MOV 
ADD 
ASL 
SUB 
MOV 
ERROR 

RSETUP 



R4 

100$ 
#210$.$THP4 
110$ 

#210$*2,R2 

#-3.R1 

R1 

R1,R2 

R2.$TMP4 

♦16 



;8AD CONSTANT PC* 



AND 



60 INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPCDO FP11F FLT6 PNT PRT C 
TEST # S - FDST MODE 4 TEST 

2362 



C 4 
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SEQUENCE 



0103U 

2363 010316 

2364 010324 
2565 010330 

2366 010334 

2367 010340 

2368 010342 

2369 010344 

2370 010350 

2371 010352 

2372 010356 

2373 010360 

2374 010366 

2375 010374 
2376 

2377 010400 

2378 010402 

2379 010404 

2380 010410 

2381 010412 

2382 010416 

2383 010422 

2384 010426 

2385 010430 

2386 010432 

2387 010434 

2388 010440 

2389 010444 

2390 010450 

2391 010452 
2592 010454 
2395 010456 
2594 

2595 

2596 010460 

2397 010462 

2398 010464 
2599 010466 

2400 010470 

2401 010472 

2402 010474 

2403 010476 
2404 

2405 

2406 010500 

2407 010502 

2408 010504 

2409 010506 

2410 010510 

2411 010512 



000004 
012737 
012700 
012701 
012702 
010021 
077202 
012700 
170100 
012700 
172410 
012757 
012757 
012700 

174040 
005201 
020027 
001060 
012700 
012701 
012702 
022021 
001057 
077205 
012700 
012701 
CI 2702 
020C21 
001056 
077205 
000465 



}77777 
y77777 
\77777 
\77777 
y77777 
y77777 
^77777 
y77777 



147250 
056147 
025056 
147250 
\77777 
}77777 



S8TTL TEST « 5 - FDST NODE 4 TEST 
5 FDST MODE 4 TEST 

IS A TEST OF STD UITH FDST MODE 4. 



•TEST 

*THIS 
* 



010524 
\77777 
010460 
000010 



000200 

010500 

010520 
010400 
010470 



0104o0 

010460 
010500 
000004 



\77777 
010470 
000004 



001110 



TST5: 
200$: 



1$: 



000004 
001236 



230S: 



110$: 



120$: 



:THJS 
^10$: 



250$: 



;THIS 
^20$: 



500$: 



SCOPE 

nOV #200$.$LPERR 

MOV #-1.R0 

MOV *210$-R1 

MOV *10,R2 

MOV RO.CRD* 

508 R2.1$ 

MOV #200, RO 

LDFPS RO 

MOV #220$, RO 

LDD (RO),ACO 

MOV «240$,ERRVECT 

MOV #230$,$TMP2 

MOV #250$, RO 

STD ACO,-(RO) 

INC R1 

CMP R0-#210$ 

BNE 260$ 

MOV #210$,R0 

MOV #220$, R1 

MOV #4.R2 

CMP (R0)*,(R1)* 

BNE 270$ 

SOB R2,110$ 

MOV #-1-R0 

MOV #250$, R1 

MOV #4.R2 

CMP ROe(RI)* 

BNE 286$ 

SOB R2,120$ 

BR 296$ 



;SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE OUTPUT BUFFER. 



;DPH002 



:ENTER FLOATING DOUBLE MODE. 
;SET UP ACO. 
:SET UP FOR A TRAP TO 4. 

:SET UP THE DESTINATION ADDRESS. 
;TEST INSTRUCTION. 

.-SEE IF RO WAS DECREMENTED PROPERLY. 
.•BRANCH IF RO IS INCORRECT. 
:UAS THE OUTPUT DATA CORRECT? 

.BRANCH IF INCORRECT. 

;IS THE REST OF THE OUTPUT BUFFER CORRECT. -1? 
.-BRANCH IF INCORRECT. 



IS THE OUTPUT DATA BUFFER. 
-1 
-1 
-1 
-1 
-1 
-1 
-1 
-1 

IS THE TEST DATA LOADED INTO ACO: 
147250 
56147 
25036 
147250 
-1 
-1 



CKFPCDO FP11F FLTG PNT PRT C 
TEST # 5 - FOST MODE 4 TEST 



MACRO Ml 113 



?412 010514 
2413 010516 
2414 
2415 

2416 010520 

2417 010522 

2418 010526 

2419 010530 

2420 010534 

2421 010536 
2422 

2423 010542 

2424 010546 

2425 010550 
2426 

2427 

2428 010552 

2429 010556 

2430 010564 

2431 010566 
2432 

2433 

2434 010570 

2435 010576 

2436 010604 

2437 010606 

2438 010610 

2439 010616 

2440 010624 
010626 
010626 



2441 



\77777 
y77777 



011600 
020027 
001405 
020027 
001402 
000137 

010037 
104017 
000426 



010037 
012737 
104020 
000417 



012737 
012737 
104021 
000407 
012737 
012737 
104022 

104412 



010402 
010404 
051774 
001236 



001242 
010460 



010460 
010500 



010470 
010510 



D 4 
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-1 
-1 



SFQUENCE 



001240 



001240 
001242 



001242 
001240 



:IF AN ODD ADDRESS TRAP OCCURS COME HERE: 

^40$: MOV (SP)^RO ;SEE IF THE TRAP ACCURRED ON THE TEST INSTRUCTION. 

CMP R0.#J30$*2 

BEO 310S ;eRANCH IF rES. 

CMP R0-#230$*4 

BEO 310$ .-BRANCH IF YES. 

JMP CPSPUR .-OTHERWISE GO REPORT A SPURIOUS TRAP THROUGH 4. 

:REPORT FAILURE IN TOST FLOWS RESULTED IN AN ODD ADDRESS. 
ilO$: MOV R04$THP2 

ERROR ^17 .-FDST FORK X ODD AD RES. 

BR 290$ 

; REPORT RO INCORRECTLY DECREMENTED. 
J60$: MOV R0,$TMP4 

MOV *210$,$TMP3 

ERROR +20 ;R0 NOT DECRE PROP 

290$ 



BR 



:REPOfiT OUTPUT DATA INCORRECT 



J70$: 



280$: 



290$: 



MOV 
MOV 
ERROR 
BR 
MOV 
MOV 
ERROR 

RSETUP 



ir210$,$TMP3 
*220$,$TMP4 
♦21 
290$ 

#250$.$TMP4 
#300$.$TMP3 

♦22 



:BAD DATA 



.DATA BAD OUTSIDE TARGET AREA 

;60 INITIALIZE THE FPS AND SfACK; AND 
:SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.-THE USER TYPED CONTROL G?). 



CKFPCOO FP11F FLT6 PNT PRT C 
TEST # 6 - FOST NODE 3 TEST 

2447 



E 4 
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SEQUENCE 43 



S8TTL TEST # 6 - FOST MODE 3 TEST 
6 FDST HOOE 3 TEST 

IS A TEST OF FDST HOOE 3 USING STD, 



• TEST 

• THIS 





010630 


000004 






2448 


010632 


012737 


010640 


001110 


2449 


010640 


012701 


010756 








01?700 

V • C ' WW 


^77777 




2451 


010650 


012702 


000012 




2452 


010654 


010021 






2453 


010656 


077202 






2454 


010660 


012737 


010756 


010772 


2455 


010666 


012700 


000200 




2456 


010672 


170100 






2457 


010674 


012700 


011002 




2458 


010700 


172410 






2459 


010702 


012737 


011012 


000004 


2460 


010710 


013737 


010722 


001236 


2461 


010716 


012700 


010772 




2462 










2463 


010722 


174030 






2464 
2465 


010724 


020027 


010774 




2466 


010730 


001046 






2467 


010732 


012701 


010756 




2468 


010736 


012702 


011002 




2469 


010742 


012703 


000004 




2470 


010746 


022122 






2471 


010750 


001045 






2472 


010752 


077303 






2473 


010754 


000452 






2474 










2475 










2476 


010756 








2477 


010760 








2478 


010762 


M7777 






2479 


010764 


y77777 






2480 


010766 


y77777 






2481 


010770 


y77777 






2482 


010772 


010756 






2483 


010774 


1 rrfrr 






2484 


010776 


M7777 






2485 


011000 


y7777r 






2486 


011002 


101213 






2487 


011004 


141516 






2488 


011006 


07U27 






2489 


011010 


037475 






2490 










2491 










2i92 


011012 


011602 






2493 


011014 


020227 


010724 




2494 


011020 


001405 






2493 


011022 


020227 


010726 




2496 


011026 


001402 







TST6: SCOPE 

nov 

200$: nov 
nov 
nov 

1$: nov 

SOB 

nov 
nov 

LDFPS 

nov 

LDD 

nov 
nov 
nov 

250S: STD 



C«P 
BNE 

nov 
nov 
nov 

C«P 
BNE 
SOB 
BR 



270$: 



;THIS 
^10$: 



220$: 
230$: 



:TRAP 
^40$: 



«200$,$LPERR 
«210$.R1 

#-i,r6 

#12, R2 

RO.(RI)* 

R2J$ 

#2l0$,220$ 
#200, RO 
RO 

#230$, RO 

(RO),ACO 

#240$,ERRVECT 

250$.$TnP2 

#220i,R0 

AC0,a(R0)^ 

R0.#220$*2 
266$ 
#210$,R1 
#230$, R2 
#4,R3 

(R1)*,(R2)* 
280$ 
R3.270$ 
306$ 



;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE OUTPUT DATA BUFFER. 



;ENTER DOUBLE FLOATING nODE. 
;SET UP ACO. 
;SET UP FOR TRAPS TO 4. 

:SET UP THE DESTINATION ADDRESS. 
.•TEST INSTRUCTION. 

;SEE IF RO WAS INCREMENTED CORRECTLY. 

.-BRANCH IF INCORRECT. 

; CHECK THE OUTPUT DATA BJFFER. 

.•BRANCH IF NOT CORRECT. 



;DPnO02 



IS THHE OUTPUT DATA BUFFER: 
-1 
-1 
-1 
-1 
-1 
-1 

210$ 
-1 
-1 
-1 

101213 
141516 
7y727 
17^,75 

THROUGH VECTOR 4 TO HERE, 
nov (SP).R2 
CnP R2,#250$*2 
BEQ 290$ 
CnP R2-#250$*4 
BEO 290$ 



SEE IF THE TRAP ADDRESS IS THAT OF THE TEST INSTRUCTION. 
BRANCH IF YES. 
BRANCH IF YES. 



CKFPCDO FP11F FLTG PNT PRT C 
TEST # 6 - FDST MODE 3 TEST 



2A97 
2498 
2^99 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
25U 
2515 



011030 000137 



01103A 
011040 
011042 
011044 



011046 
011052 
011060 
011062 



011064 
011072 
011100 
011102 
011102 



010237 
022626 
104023 
000416 



010037 
012737 
104024 
000407 



012737 
012737 
104025 

104412 



051774 
001236 



001242 
010774 



010756 
011002 



F 4 
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J«P CPSPUR .-OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 

•REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
^90$: MOV R2.$TNP2 

CMP (SP)*.(SP)* 

ERROR ^23 :6ET FDST X ODD ADR 

BR 300$ 



SEQUENCE 44 



001240 



001240 
001242 



: REPORT RO INCORRECT: 
^60$: MOV R0.$TMP4 

MOV #2J0$*2,$TMP3 

ERROR +24 

BR 300S 

:REPORT INCORRECT OUTPUT DATA: 
^80$: MOV #210$,$TMP3 

MOV *230$.$TMP4 

ERROR +25 

300$: 

RSETUP 



;R0 NOT INCREMENT PROPERLY 



;8AD DATA 

;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG PHI PRT C 
TEST # 7 - FDST HOOE 5 TEST 

2521 



6 A 
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SEQUENCE 



2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
253A 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 



011104 
011106 
011114 
011120 
011124 
011130 
011132 
011134 
011142 
011146 
011150 
011154 
011156 
011164 
011172 
011176 
011200 
011204 
011206 
011212 
011216 
011222 
011224 
011226 
011230 



011232 
011234 
011236 
011240 
011242 
011244 
011246 
011250 
011252 
011254 
011256 
011260 
011262 
011264 



011266 
011270 
011274 
011276 
011302 
011304 



000004 
012737 
012701 
012700 
012702 
010021 
077202 
012737 
012700 
170100 
012700 
172410 
012737 
013737 
012700 
174050 
020027 
001046 
012701 
012702 
012703 
022122 
001045 
077303 
000452 



}77777 
y77777 
y77777 
y77777 
\77777 
011232 
^77777 
y77777 
y77777 
y77777 
020212 
023242 
026275 
031323 



011602 
020227 
001405 
020227 
001402 
000137 



.S8TTL TEST # 7 - FDST MODE 5 TEST 
FDST MODE 5 TEST 



011114 
011232 
y77777 
000012 



011232 
000200 

011256 

011266 
011176 
011246 

011244 

011232 
011256 
000004 



001110 



011244 



000004 
001236 



•TEST 7 

♦THIS IS A TEST OF FDST HODE 5 USING STD. 
* 

tST/: SCOPE 

;SET UP THE LOOP ON ERROR ADDRESS. 

;SET UP THE OUTPUT DATA BUFFER. 



;DPM002 



.-ENTER DOUBLE FLOATING MODE. 
.-SET UP ACO. 

.-GET READY FOR ANY TRAPS TO 4. 

.-SET UP THE DESTINATION ADDRESS. 
.-TEST INSTRUCTION. 
;WAS RO DECRIMENTED PROPERLY? 
.•BRANCH IF RO IS INCORRECT. 
;WAS THE DATA OUTPUT CORRECTLY: 



.BRANCH IF DATA IS INCORRECT. 



011200 
011202 
051774 



nOV «200$.SLPERR 

200$: MOV *210$.R1 

MOV *-1,R0 

MOV *12.R2 

1$: MOV RO.(RI)* 

SOB R2.1$ 

MOV «210$,220$ 

MOV «200,R0 

LDFPS RO 

MOV «230$,R0 

LDD (RO),ACO 

MOV «240$,ERRVECT 

MOV 250$,$TMP2 

MOV «260$.R0 

250$; STD AC0,8-(R0) 

CMP R0-#260$-2 

BNE 270$ 

MOV *210$,R1 

MOV #230$ «R2 

MOV #4,R3 

280$: CMP (R1)*,(R2)* 

BNE 310$ 

SOB R3.280$ 

BR 290$ 

.•THIS IS THE OUTPUT DATA BUFFER 
210$: -1 
-1 
-1 
-1 
-1 

210$ 
-1 
-1 

I 

-1 

20212 
23242 
2627: 
03(323 

•IF A TRAP TO 4 OCCURS COME HERE. 

^40$: MOV (SP).R2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 

CMP R2.«50$*2 

BEQ 300$ .BRANCH IF YES. 

CMP R2.#250$*4 

BEQ 300$ .-BRANCH IF YES. 

JMP CPSPUR .-OTHERWISE REPORT A SPURIOUS TRAP TO 4. 

.REPORT FAILURE OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 



220$: 
260$: 



230$: 
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SEQUENCE A6 



2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 



011310 
011314 
011316 
011320 



011322 
011326 
011334 
011336 



011340 
011346 
011354 
011356 
011356 



010237 001236 
022626 
104026 
000416 



010037 001242 
012737 011250 
104027 
000407 



300$: 



nov 

ERROR 
BR 



R2.$TMP2 
(SP)*.<SP)* 
♦26 
290$ 



012737 
012737 
104030 

104412 



011232 
011256 



001240 



001242 
001240 



;REPORT RO INCORRECT. 
^70$: HOV R0.$TnP4 

nov #260$>2,$TMP3 

ERROR +27 

BR 290$ 

;REPORT BAD DATA. 
^10$: nov #210$.$TnP4 
nov #230$,$TnP3 

ERROR ^30 

290$: 

RSETUP 



;BET FDST X ODD ADR 



;R0 NOT INCREMENT PROPERLY 



:BAD DATA 

;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



1 
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SEQUENCE 



2592 



2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

26U 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 



01 1 360 000004 



011562 
011370 
011374 
011376 
011402 
011406 
011412 
011414 
011416 
011424 
011430 
011432 
011440 
011444 
011450 

011454 
011460 
011462 
011466 
011472 
011476 
011500 
011502 
011504 
011506 
011510 
011512 
011514 
011516 
011520 
011522 
011524 



011526 
011530 
011534 
011536 
011542 
011544 

011550 
011554 
011556 
011560 



012767 
012700 
170100 
012701 
012700 
012702 
010021 
077202 
012767 
012700 
172410 
012767 
012700 
012701 
174060 

020027 
001040 
012702 
012703 
012704 
022223 
001037 
077403 
000444 
M7777 
y77777 
^77777 
\77777 
030313 
023334 
035363 
074041 



011602 
020227 
001405 
020227 
001402 
000167 

010267 
022626 
104031 
000416 



011370 
000200 

011506 
^777^7 
000004 



011526 
011516 

011450 
003605 
000001 
005701 

003605 

011506 
011516 
000004 



011452 
011454 
040162 
167462 



.SBTTL TEST # 10 - FDST MODE 6, INDEX MODE, TEST 
;*TEST 10 FDST HODE 6, INDEX MODE, TEST 



;*THIS IS A TEST OF FDST HODE 6, INDEX MODE, USING STD. 
• * 



167520 



TST10: SCOPE 
.DSABL 



200S: 



IS: 



166360 



167576 



240S: 



2S: 

210$: 

230S: 



nov 
nov 

LDFPS 

nov 
nov 
nov 
nov 

SOB 

nov 
nov 

LDD 

nov 
nov 
nov 

STD 

cnp 

BNE 

nov 
nov 
nov 
cnp 

BNE 

SOB 

BR 

-1 

-1 

-1 

-1 

30313 
23334 
35363 
74041 



AMA 

«200S,SLPERR 

«200,R0 

RO 

f210S,R1 

#-1,R0 

#4.R2 

R0,(R1)* 

R2.1f 

#2tOS,ERRVECT 

#230S,RO 

(RO}.ACO 

f240i,STnP2 

#210$-5701.R0 

#1-R1 

AC6,5701(R0) 

R0-#210$-5701 
256s 

«210S.R2 
f230S.R3 
#4.R4 

(R2)*.(R3)* 
260S 
R4,2$ 
276s 



.■DISABLE nODE 6 TO nODE 3 CONVERSIONS 
;SET UP THE LOOP ON ERROR ADDRESS. 
.ENTER DOUBLE FLOATING MODE. 

.SET UP THE OUT PUT DATA BUFFER. 



.SET UP VECTOR 4 INCASE OF EPROR. 
.SET UP ACO. 



.SET UP THE DESTINATION ADDRESS. 

.-TEST INSTRUC71W. 

.-SEE IF RO IMS nCDIFIED. 

.BRANCH IF INCORRECT. 

;IMS THE OUTPUT DATA CORRECT. 



.•BRANCH IF INCORRECT DATA. 



;DPn002 



;COnE HERE AFTER A TRAP THROUGH VECTOR 4. 
220$: nov (SP).R2 

CHP R2.#240$*2 

BEQ 286$ 

cnp R2.#240$^4 

BEO 286$ 



SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
BRANCH IF YES. 



BRANCH IF YES. 

jnp FPSPUR .OTHERWISE 60 REPORT SPURIOUS TRAP TO 4. 
:REPORT FAILURE OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 
280$: nov R2.$TnP2 

cnp (SP)*.(SP)* 

ERROR ^31 .FDST FORK X ODD ADD 

BR 270$ 

.REPORT RO nODIFlED. 



CKFPCDO FPHF FLTG PNT PRT C 
TEST # 10 - FDST HODE 6. INDEX 



WACRO mi 13 
MODE. TEST 



2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 



011562 
011566 
011574 
011576 



011600 
011606 
011614 
011616 
011616 



010067 
012767 
104032 
000407 



012767 
012767 
104033 

104412 



167454 
003o05 
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SEQUENCE 48 



011506 
011516 



167444 



167432 
167426 



250$; 



: RE PORT 
^60S: 



270S: 



nOV R0,$THP4 

WV #2lOS-570l.$TMP3 

ERROR *12 ;R0 MODIFIED. 

BR 270S 



2652 



INCORRECT DmTA. 
MOV #210$.$TMP3 
MOV #230$.fTMP4 
ERROR ^33 

RSETUP 



.ENA8L AMA 



:8AD DATA 

60 INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 

VIRTUAL CONSOLE SWITCH REGISTER (HAS 

THE USER TrPED CONTROL G?). 

RE ENABLE MODE 6 TO MODE 3 CONVERSIONS 



CKFPCDO FPllF FLTG F>NT PRT C HACRO mil3 30-0CT-81 11:15 
TEST « 11 - FDST NODE 7, INDEX DEFERRED NODE. TEST 



K 4 
PAGE 18 



SEQUENCE 



2658 



2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2m 



011620 
011622 
011630 
011634 
011636 
011642 
011646 
011652 
011654 
011656 
011664 
011670 
011672 
011700 
011704 
011710 
011716 

011722 
011726 
011730 
01 1 734 
01 1 740 
011744 
011746 
011750 
011/52 
011754 
011756 
CI 1760 
011762 
011764 
011766 
011770 
011772 
011774 
011776 
012000 
012002 



012004 
012006 
012012 
012014 
012020 
012022 

012026 
012032 



000004 
012737 
012700 
170100 
012701 
012700 
012702 
010021 
077202 
012737 
012700 
172410 
012737 
012700 
012701 
012737 
174070 

020027 
001044 
012702 
012703 
012704 
022223 
001043 
077403 
000450 
M7777 
y77777 
}77777 
\77777 
041424 
034445 
046475 
051525 
}77777 
}77777 
U7777 
^77777 



011602 
020227 
001405 
020227 
001402 
000137 

010237 
022626 



011630 
000200 

011754 
}77777 
000004 



012004 
01 1 764 

011716 
004073 
000001 
011754 
005701 

004073 

011754 
011764 
000004 



011720 
011722 
051732 
001236 



.S8TTL TEST # 11 - FDST NODE 7. INDEX DEFERRED MODE. TEST 
FDST NODE 7, INDEX DEFERRED NODE, TEST 



•TEST 11 

•THIS IS A TEST OF FDST NODE 7, INDEX DEFERRED NODE, USING STD. 
* 



001110 



TST11 
200$: 

100S: 



000004 



001236 



011774 



240S: 



110S: 
210$: 
230$: 
250$: 



SCOPE 

NOV 

NOV 

LDFPS 

NOV 

NOV 

NOV 

NOV 

soe 

NOV 
NOV 
LDD 
NOV 
NOV 
NOV 
NOV 
STD 

CNP 
BNE 
NOV 
NOV 
NOV 
CNP 
BNE 

soe 

BR 
-1 
-1 
-1 
-1 

41424 

34445 

46475 

051525 

-1 

-1 

-1 

-1 



#200$,$LPERR 
#200. RO 
RO 

#210$-R1 

#-1.R0 

#4.R2 

RO.CRD* 

R2.100$ 

#220$.ERRVECT 

#230$, RO 

CROJ.ACO 

#24di,$THr2 

#250$-5701.R0 

#1-R1 

#210$.250$ 
AGO, 85701 (RO) 

R0.#250$-5701 
266$ 

#210$,R2 
#230$, R3 
#4.R4 

(R2)*,(R3)* 
270$ 
R4.110$ 
286$ 



TRAP THROUGH 4 
NOV 
CNP 
BEO 
CNP 
BEO 
JNP 

FAILURE 
NOV 
CNP 



^20$ 



: REPORT 
J90$: 



TO HERE. 
(SP).R2 
R2-#J40$*2 
296$ 

R2,#240$*4 
296$ 



;SET UP THE LOOP ON ERROR ADDRESS. 
.•ENTER DOUBLE FLOATING NODE. 

;SET UP THE OUTPUT DATA BUFFER. 



;SET UP FOR TRAPS TO 4. 
.-SET UP ACO. 



;SET UP THE DESTINATION ADDRESS. 



.•TEST INSTRUCTION. 

;IS RO CORRECT? 

.-BRANCH If INCORRECT. 

.yAS THE DATA OUTPUT CORRECTLY? 



.-BRANCH IF DATA IS INCORRECT. 



;DPN002 



SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
BRANCH IF YES. 



BRANCH IF YES 
FPSPUR .OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
OF FDST FORK RESULTED IN AN ODD ADDRESS TRAP TO 4. 
R2,$TNP2 
(SP)*,(SP)» 
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SEQUENCE SO 



2708 
2709 
2710 
2711 
2712 
2715 
27U 
2715 
2716 
2717 
2718 
2719 
2720 
2721 



012034 
012036 



012040 
012044 
012052 
012054 



012056 
012064 
01?072 
012074 
012074 



104034 
000416 



010037 
012737 
104035 
OOC407 



012737 
012737 
104036 

104412 



001242 
004053 



011754 
011764 



001240 



001240 
00^242 



ERROR 
BR 



♦34 
280S 



;FDST FORK X ODD ADD 



:REPORT 
^60$: 



RO MODIFIED. 

MOV R0.$TMP4 

MOV «2l0f-5701,STMP3 

ERROR +35 ;R0 MODIFIED.' 

BR 280S 



: REPORT DATA INCORRECT 
^701: MOV #210J.STMP3 

MOV #230$,$TMP4 

ERROR *36 



280S: 



RSETUP 



;BAD DATA 

;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SMITCH REGISTER (HAS 
.-THE USER T/PED CONTROL G?). 



» 



CUFPCDO FP11F FLTG PHI PRT C 
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2727 



n 4 
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SE0U£MCE 



51 



012076 

2728 

2729 012100 

2730 012106 

2731 012112 

2732 012114 

2733 012116 

2734 012120 

2735 012122 

2736 01212A 

2737 012126 

2738 012130 

2739 012132 
27A0 01213A 
27A1 012136 

2742 012U0 

2743 012142 

2744 012144 

2745 012146 

2746 012150 

2747 012152 

2748 012154 

2749 012156 

2750 012160 
2751 

2752 012160 

2753 012166 

2754 012172 

2755 012174 

2756 012176 

2757 012200 

2758 012202 

2759 012204 

2760 012206 

2761 012210 

2762 012212 

2763 012214 

2764 012216 

2765 012220 

2766 012222 

2767 012224 

2768 012226 

2769 012230 

2770 012232 

2771 012234 

2772 012236 

2773 012240 
277i* 

2775 012240 

2776 012246 



000004 

012737 
004737 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 

}77777 
y77777 
047000 
047004 
^77777 
147004 
104042 
000401 
104043 



012737 
004737 
017203 
142536 
047506 
172031 
017203 
142536 
OOOOOO 
OOOOOO 
017203 
142536 
047506 
172031 
040000 
040000 
}77777 
y77777 
104044 
000401 
104040 



012737 
004737 



.S8TTL TEST # 12 - STCFO TEST 
12 STCFD TEST 

IS A TEST OF THE STCFD INSTRUCTION. 



.••TEST 
••THIS 



012106 
012462 



001110 



012166 
012462 



001110 



012246 
012462 



001110 



TST12: 
;AC=0 

200$: 
IS: 



2$: 

3S: 

4S: 

5S: 
6S: 



210S: 
11$: 



12$: 

13$; 

14$: 

15$: 
16$: 
220$: 



SCOPE 

nov 

JSR 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-1 
-1 

47000 
47004 

-1 

147004 

ERROR 

BR 

ERROR 



NOV 

JSR 

17203 

142536 

47506 

172031 

17203 

142536 

0 

0 

17203 

142536 

47506 

172031 

40000 

40000 

-1 

-1 

ERROR 
BR 

ERROR 



#200$.$LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
PCJ060$ 

;AC 



.RES 

.ERROR RES. 



;DPN002 



♦42 

6$ 

♦43 



FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 

FEC 

ERROR FPS. 

;FOfL< FOFLXST 767 



#210$.$LPERR 
PC.1060$ 



;RES 



;8UT EZBT X ST560 TO 061 INTO 261 



:SET UP THE LOOP ON ERROR ADDRESS. 



;DPN002 



♦44 
16$ 
♦40 



;ERROR RES. 



FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FEC 

ERROR FPS. 

; X1 1(1. OX 0 X ST 766 



MOV 

JSR 



#220$.$LPERR 
PC.1060$ 



.SET UP THE LOOP ON ERROR ADDRESS. 



;DPH002 
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2f77 012252 

2778 012254 

2779 012256 

2780 012260 

2781 012262 

2782 01226A 

2783 012266 
278A 012270 

2785 012272 

2786 012274 

2787 012276 

2788 012300 

2789 012302 

2790 012304 

2791 012306 

2792 012310 

2793 012312 

2794 012314 

2795 012316 

2796 012320 
2797 

2798 012320 

2799 012326 

2800 012332 

2801 012334 

2802 012336 

2803 012340 

2804 012542 

2805 012344 

2806 012346 

2807 012350 

2808 012352 

2809 012354 

2810 012356 

2811 012360 

2812 012362 

2813 012364 

2814 012366 

2815 012370 

2816 012372 

2817 012374 

2818 012376 

2819 012400 
2820 

2821 012400 

2822 012406 

2823 012412 

2824 012414 

2825 012416 

2826 012420 

2827 012422 

2828 012424 

2829 012426 

2830 012430 

2831 012432 

2832 012434 

2833 012436 



050717 
027374 
075767 
077071 
050717 
027374 
000000 
000000 
000000 
000000 
000000 
000000 
047000 
047000 
}77777 
1 74002 
104045 
000401 
104046 



012737 
004737 
020212 
032425 
026272 
002123 
020212 
032425 
000000 
000000 
020212 
032425 
100000 
000000 
040000 
040000 
}77777 
^77777 
104047 
000401 
104040 



012737 
004737 
121314 
151617 
101112 
131415 
121314 
151617 
000000 
000000 
021314 
151617 
000000 



012326 
012462 



001110 



012406 
012462 



001110 



21$: 

22S: 

231: 

24$: 

25$: 
26$: 



230$: 
31$: 



32$: 

33$: 

34$: 

35$: 
36$: 



240$: 
41$: 



42$: 
43$: 



50717 

27374 

75767 

77071 

50717 

27374 

0 

0 

0 

0 

0 

0 

47000 
47000 
-1 

1740C2 

ERROR 

BR 

ERROR 



NOV 

JSR 

20212 

32425 

26272 

02123 

20212 

32425 

0 

0 

20212 
32425 
100000 
0 

40000 
40000 
-1 
-1 

ERROR 
BR 

ERROR 



MOV 

JSR 

121314 

151617 

101112 

131415 

121314 

151617 

0 

0 

21314 
151617 

0 
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SEQUENCE 



♦45 
26$ 
♦46 



.RES 



.ERROR RES. 



;FPS BEFORE EXECUTION. 
.FPS AFTER EXECUTION. 
;FEC 

.ERROR FPS. 

;8UT OPIC X ST251 

.-BUT EZBT X ST421 



#230$-$LPERR 
PC, 1000$ 



;RES 



.•SET UP THE LOOP ON ERROR ADDRESS. 



;DP»10^2 



♦47 
36$ 
40 



.•ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 

.-ERROR FPS. 

;BUT FD IN ROUND X ST113 



#2»0$.$LPERR 
PC,1060$ 

;AC 



;RES 



; SET UP THE LOOP ON ERROR ADDRESS. 



;DP«002 



.•ERROR RES. 



CKfPCDO fPllF FLTG PNT PRT C HACRO 
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2834 0124A0 000000 

2835 012442 040000 

2836 012444 040010 

2837 012446 y77777 

2838 012450 y77777 

2839 012452 104050 

2840 012454 000401 

2841 012456 104040 

2842 012460 000535 



B 5 
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SEQUENCE 



0 

40000 :FPS BEFORE EXECUTION. 

40010 ;rPS AFTER EXECUTION. 

-1 ;FEC 
-1 .-ERROR FPS. 

ERROR «50 .-BUT ENBT X 57567 OR BAD SIGN ST460 



BR 46$ 

ERROR ^40 
BR 250$ 



CKFPCOO FPllF FLTG PNT PRT 
TEST # 12 - STCFD TEST 



28A3 
284A 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 

2875 012462 012601 

2876 012464 012700 

2877 012470 170100 

2878 012472 010100 

2879 012474 172410 

2880 012476 012700 
2««1 012502 012702 

2882 012506 012703 

2883 012512 010022 

2884 012514 077302 

2885 012516 016100 

2886 012522 170100 

2887 012524 012737 

2888 012532 012700 

2889 012536 176010 
2890 

2891 012540 170204 

2892 012542 170305 

2893 012544 010102 

2894 012546 010237 

2895 012552 062702 

2896 012556 010237 

2897 012562 012737 
2398 012570 010437 
2899 012574 016137 



MACRO HI 113 30-OCT-81 11:15 PAGE 20 SEQUENCE 

THIS SUBROUTINE. 1000$, IS USED TO SET UP THE OPERANDS. EXECUTE 
THE STCFD INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 

PC. 1000$ 

;AC OPERAND 
.'EXPECTED RESULT 
.•ERROR RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.EXPECTED FEC 
.ERROR FPS. 
.•DATA ERROR. 

:FPS ERROR. 
.•RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE STCFD INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT 1000$ RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ 
COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN 1000$ WILL RETURN 
TO THE ERROR CALL AT ERR2, OTHERWISE 1000$ ITSELF 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
STCFD IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000$ 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



000200 



Mini 

012744 
000004 



000030 

012536 001236 
012744 



001240 
000010 
001244 

0127',4 001242 
001250 

000032 001252 



JSR 


PC, 1000$ 


ACARG: 


.WORD 


X ^ X * X ^ X 


RES: 


.WORD 


X X # X ^ X 


ERRES: 


.WORD 


X ^ X ^ X f X 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


FLC: 


.WORD 


X 


ERFPS: 


.WORD 


X 


ERR1: 


ERROR 


+x 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







1000$: MOV (SP) ♦.Rl 

MOV #200. RO 

LDFPS RO 

MOV R1.R0 

LDD (R0),AC0 

MOV #-1 .RO 

MOV #245$, R2 

MOV #4,R3 

51$: MOV R0,(R2)* 

SOB R3,51$ 

MOV 30(R1),R0 

LDFPS RO 

MOV #52$.$TMP2 

MOV #245$, RO 

52$: STCFD ACO.(RO) 

STFPS R4 

STST R5 

MOV R1 ,R2 

MOV R2-$TMP3 

ADD #10. R2 

MOV R2,$TMP5 

MOV #245$.$T«P4 

MOV R4,$THP7 

MOV 32(R1).$TMP10 



.PICK UP THE POINTER TO THE OPERANDS. 
ENTER DOUBLE FLOATING MODE. 

LOAD ACO. 

FILL THE OUTPUT BUFFER WITH -VS. 



.•LOAD THE FPS. 

.•SET UP THE DESTINATION ADDRESS. 
;TEST INSTRUCTION. 

.-GET THE FPS. 
;6ET THE FEC. 

.•SAVE THE DATA IN CASE ERROR. 



CKFPCDO FP11F FLTG PNT PRT C 
TEST • 12 - STCFD TEST 



D 5 

NACRO M1113 30-0CT-81 11:15 PAGE 20-1 



SEQUENCE 55 



2900 

2901 012602 

2902 01260A 

2903 012610 
290A 012614 

2905 012620 

2906 012622 

2907 012624 
2908 

2909 012626 

2910 012632 

2911 012634 

2912 012636 

2913 012640 

2914 012642 

2915 0126<6 

2916 012650 
2917 

2918 

2919 012654 

2920 012656 

2921 012662 

2922 012666 

2923 012672 

2924 012674 

2925 012676 

2926 012700 
2927 

2928 012704 

2929 012704 

2930 012706 
2931 

2932 

2933 012710 

2934 012714 

2935 012716 
2936 

2937 

2938 012722 

2939 012722 

2940 012724 
2941 

2942 

2943 012726 

2944 012734 

2945 012740 

2946 012742 

2947 012744 

2948 012754 
012754 



010102 
062702 
012703 
012700 
022223 
001014 
077003 

016102 
020204 
001025 
005702 
100003 
026105 
001027 
000161 



010102 
062702 
012703 
012700 
022223 
001003 
077003 
000161 



104037 
000760 



020461 
001002 
000161 



104040 
000751 



016137 
010537 
104041 
000742 

mm 

104412 



000010 
012744 
000004 



000032 

000036 
000046 



000020 
012744 
000004 



000040 



000034 
000044 



53$: 



54$: 



nov 

ADD 
HOV 

nov 

CMP 
BNE 
SOB 

MOV 
CMP 
BNE 
TST 
BPL 
CMP 
BNE 
JMP 



R1.R2 
#l6.R2 
#245$, R3 
#4.R0 

(R2)*.(R3)* 
65$ 

R0,53$ 

32(R1).R2 

R2.R4 

70$ 

R2 

54$ 

36(R1).R5 
75$ 

46(R1) 



.•CHECK THE RESULT. 



;BRANCH IF INCORRECT. 



;IS THE FPS CORRECT? 

.BRANCH IF FPS INCORRECT. 

.IF EXPECTED FPS IS NEGATIVE , THEN 

:G0 AHEAD AND CHECK THE FEC. 

;BRANCH IF FEC IS INCORRECT. 
.RETURN. 



.RESULT INCORRECT: 

65$: MOV R1.R2 

ADD #20.R2 

MOV *245$.R? 

MOV *4,R0 

66$: CMP (R^)*,(R3)* 

BNE 67$ 

SOB R0.66$ 

JMP 40(R1) 
.OTHERWISE REPORT RESULT INCORRECT HERE 
67$: 

68$: ERROR ^37 ;DATA ERROR 

BR 54$ 



.SEE IF ERROR WAS ANTICIPATED. 

.•BRANCH IF NOT ANTICIPATED. 
:IF ERROR WAS ANTICIPATED RETURN. 



;FPS INCORRECT: 

^0$: CMP R4.34(Rr 

BNE 71 i 

JMP 44 (R1) 



WAS THE ERROR ANTICIPATED. 
BRANCH IF NOT ANTICIPATED. 
IF IT WAS ANTICIPATED RETURN. 



•THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
?1$: 



72$: 



ERROR 
BR 



♦40 
54$ 



000036 
001254 



001256 



;REPORT FEC INCORRECT: 

^5$: MOV 36(R1).$TMP12 

MOV R5.$TMP11 
76$: ERROR ^41 

BR 54$ 
245$: -1.-1.-1.-1 
250$: 

.<SETUP 



;FPS X 



;FEC X 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FP11F FLTG PNT F>RT C 
TEST f 13 - STCDF TEST 

2954 
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SEQUENCE 56 



012756 

2955 

2956 012760 

2957 012766 

2958 012772 

2959 012774 

2960 012776 

2961 013000 

2962 013002 

2963 013004 

2964 013006 

2965 013010 

2966 013012 

2967 013014 

2968 013016 

2969 013020 

2970 013022 

2971 013024 

2972 013026 

2973 013030 

2974 013032 

2975 013034 

2976 013036 

2977 013040 
2978 

2979 013040 

2980 013046 

2981 013052 

2982 013054 

2983 013056 

2984 013060 

2985 013062 

2986 013064 

2987 013066 

2988 013070 

2989 013072 

2990 013074 

2991 013076 

2992 013100 

2993 013102 

2994 013104 

2995 013106 

2996 013110 

2997 013112 

2998 013114 

2999 013116 

3000 013120 
3001 

3002 013120 

3003 013126 



000004 

012737 
004737 
000000 
000000 
000000 
000000 
000000 
000000 

\mn 

M7777 
000000 
000000 
000000 
000000 
047200 
047204 
^77777 
•[77777 
104054 
000401 
104052 



012737 
004737 
067574 
073727 
•[7^777 
067571, 
067574 
073730 
^77777 
\77777 
067574 
073727 
y77777 
}77777 
040200 
040200 
^77777 
^77777 
104055 
000401 
104052 



012737 
004737 



012766 
013342 



001110 



013046 
013342 



001110 



.S8TTL TEST # 13 - STCDF TEST 
STCDF TEST 



;»TEST 13 

••THIS IS A TEST OF THE STCDF INSTRUCTION. 

; * 

• • *************************************************************** 

tST13: SCOPE 



013126 
013342 



001110 



;AC=0 

200S: 
1$: 



2$: 

3S: 

4S: 

5$: 
6$: 



210$: 
11$: 



12$: 

13$: 

14$: 

15$: 
16$: 
220$: 



nov 

JSR 

0 

0 

0 

0 

0 

0 

-1 

-1 

0 

0 

0 

0 

47200 
47204 
-1 
-1 

cRROR 
BR 

ERROR 



mv 

JSR 

67574 

71727 

y70777 

6757^, 

67574 

73730 

-1 

-1 

67574 
75727 
-1 
-1 

40200 
40200 
-1 
-1 

ERROR 
BR 

ERROR 



#200$-$LPERR 
PC J 000$ 



♦54 
6$ 

♦52 



#210$,$LPERR 
PC. 1000$ 



nov 

JSR 



♦55 
16$ 
♦52 



#220$.$LPERR 

pc.io6o$ 



;DPH002 



:SET UP THE LOOP ON ERPOR ADDRESS. 
.AC 

.RES 

.•ERROR RES. 

;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 

;FEC 

.ERROR FPS. 

;FDFL< FDFL X ST767 

;FPS INCORRECT. 

;SET UP THE LOOP ON ERROR ADDRESS. 
;ACO 

;RES 

.•ERROR RES. 



FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FtC 

ERROR FPS 

EITHER RoOnD FAILED OR WENT TO 766 XKI.OX— 0 INTO 767 



;DP«002 



:SET UP THE LOOP ON ERROR ADDRESS. 



;DP«002 



CKFPCDO FP11F FLTG PNT PRT C 
TEST # 13 - STCDF TEST 



3004 013132 

3005 01313A 

3006 013136 

3007 013140 

3008 013U2 

3009 013144 

3010 013146 

3011 013150 

3012 013152 

3013 013154 

3014 013156 

3015 013160 

3016 013162 

3017 013164 

3018 013166 

3019 013170 

3020 013172 

3021 013174 

3022 013176 

3023 013200 
3024 

3025 013200 

3026 013206 

3027 013212 

3028 013214 

3029 013216 

3030 013220 

3031 013222 

3032 013224 

3033 013226 

3034 013230 

3035 013232 

3036 013234 

3037 013236 

3038 013240 

3039 013242 

3040 013244 

3041 013246 

3042 013250 

3043 013252 

3044 013254 

3045 013256 

3046 013260 
3047 

3048 013260 

3049 013266 

3050 013272 

3051 013274 

3052 013276 

3053 013300 

3054 013302 

3055 013304 

3056 013306 

3057 013310 

3058 013312 

3059 013314 

3060 013316 



077777 
^77777 
100000 
000000 
000000 
000000 
y77777 
}77777 
077777 
^77777 
}77777 
}77777 
040200 
040206 
U7777 
040204 
104055 
000401 
104056 



012737 
004737 
077777 
-[77777 
100000 
000000 
000000 
000000 
-[77777 
y77777 
077777 
y77777 
y77777 
\77777 
040200 
040206 
y77777 
140206 
104055 
000401 
104057 



012737 
004737 
-[77777 
}77777 
100000 
000000 
100000 
000000 
-[77777 
-[77777 
000000 
000000 
-[77777 



MACRO nil 13 
21$: 

22$: 

23$: 

24$: 

25$: 
26$: 



013206 
013342 



001110 



013266 
013342 



001110 



230$ 
31$: 



32$: 

33$: 

34$: 

35$: 
36$: 



240$ 
41$: 



42$: 
43$: 



F 5 
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SEQUENCE 5/ 



77777 
-1 

100000 
0 
0 
0 

-1 

-1 

77777 
-1 
-1 
-1 

40200 
40206 
-1 

40204 
ERROR 
BR 

ERROR 



MOV 

JSR 

77777 

-1 

100000 
0 
0 
0 

-1 
-1 

77777 
-1 
-1 
-1 

40200 
40206 
-1 

140206 

ERROR 

BR 

ERROR 



MOV 
JSR 
^77777 
-1 

100000 
0 

100000 
0 

-1 
-1 

0 
0 
-1 



♦55 
26$ 
♦56 



#230$.$LPERR 
PC J 000$ 



♦55 
36$ 
♦57 



#240$.$LPERR 
PC, 1000$ 



:ACO 
;RES 

.ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 

;FEC 

.•ERROR FPS. 



.-BUT EZBT X ST421 TO 062 INTO 262 

;SET UP THE LOOP ON ERROR ADDRESS. 
;ACO 

;RES 

.ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 

.ERROR FPS. 



;BUT FIV ST262 TO 123 INTO 103 

.-SET UP THE LOOP ON ERROR ADDRESS. 
;ACO 

:RES 

.ERROR RES. 



;DPM002 



;DPM002 



CUFPCOO FP11F FLTG f>NT PRT C HACW M1113 
TEST # 13 - STCOF TEST 

3061 013320 M7777 

3062 013322 047200 44» 

3063 013324 147216 

3064 013326 000010 

5065 013350 047206 

5066 015352 104060 451 
3067 013354 000401 

5068 015356 104061 

5069 015540 000555 46S 



50-0CT-81 11:15 



PAGE 



5 
2 



SEQUENCE 



-1 

47200 

147216 

10 

47206 
ERROR 
BR 

ERROR 
BR 



♦60 
46S 
♦61 
250S 



;FPS BEFORE EXECUTION. 
.^PS AFTER EXECUTION. 
;^EC 

'ERROR FPS 

•BUT FIV Sf262 FAIL TO 105 INT 125 
:BUT FLAG ST 147 X TO ST 361 INTO 565 



CKFPCDO FPTIF FLTG PNT PRT C 
TEST # 13 - STCDF TEST 



3070 
5071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 

3102 013342 012601 

3103 013344 012700 

3104 013350 170100 

3105 013352 010100 

3106 013354 172410 

3107 013356 012700 

3108 013362 012702 

3109 013366 012703 

3110 013372 010022 

3111 013374 077302 

3112 013376 016100 

3113 013402 170100 

3114 013404 012737 

3115 013412 012700 

3116 013416 176010 
3117 

3118 013420 170204 

3119 013422 170305 

3120 013424 010102 

3121 013426 010237 

3122 013432 062702 

3123 013436 010237 

3124 013442 012737 

3125 013450 010437 

3126 013454 016137 
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H 5 
PAGE 22 



SEQUENCE 59 



000200 



177777 
013624 
000004 



000030 

013416 001236 
013624 



001240 
000010 
001244 

013624 001242 
001250 

000032 001252 



THIS SUBROUTINE. 1000$. IS USED TO SET UP THE OPERANDS. EXECUTE 
THE STCDF INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 

ICR pr mnnt 

;AC OPERAND 
.•EXPECTED RESULT 
.ERROR RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.EXPECTED FEC 
.ERROR FPS. 
.DATA ERROR. 

;FPS ERROR. 
.•RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE STCFD INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF TME RESULT IS CORRECT THEN ^HE FPS IS 

COMPARED WITH FPSA IF THIS TOO IS fORRECT STCFDS RETURNS CONTROL 

TO THE CALLING ROUTINE AT CON^. IF THE FPS IS BAD STCFDS 

COMPARE IT TO ERROR FPS. IF :hIS MATCHES THEN STCFDS WILL RETURN 

TO THE ERROR CALL AT ERR2. f>TH£RtfISE STCFDS ITSELF 

REPORTS THIS FAILURE AND TH;N RETURNS TO CONT. IF THE RESULT OF THE 

STCFD IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA P/TTERN. ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCFDS 

WILL TRANSFER CONTROL TO T-tE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT bAS NOT ANTICIPATED AND STCFDS WILL 

REPORT THE FAILURE AFTER tMICH CONTROL WILL BE PASSED TO CONT. 



JSR 


PC. 1000$ 




.WORD 


X / X ^ X ^ X 


RES: 


.WORD 


X ^ X # X ^ X 


ERRES: 


.WORD 


X # X # X # X 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


FEC: 


.WORD 


X 


ERFPS: 


.WORD 


X 


ERR1: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







1000$: 


MOV 




MOV 




LDfPS 




MOV 




LDD 




MOV 




MOV 




MOV 


51$: 


MOV 




SOB 




MOV 




LDFPS 




MOV 




MOV 


52$: 


STCDF 




STFPS 




STST 




MOV 




MOV 




ADD 




MOV 




MOV 




MOV 




MOV 



(SP)*.R1 
#200. RO 
RO 

R1.R0 

{RO),ACO 

#-1.R0 

#260$. R2 

f4.R3 

R0,(R2)* 

R3.51$ 

30{R1).R0 

RO 

#52$.$TMP2 

f260i.R0 

ACO.(RO) 

R4 
R5 

Rl ,R2 

R2-$TMP3 

#l6,R2 

R2.iTMP5 

#260$.$TMP4 

R4.$TMP7 

32{R1).$TMP10 



.PICK UP THE POINTER TO THE OPERANDS. 
.ENTER DOUBLE FLOATING MODE. 

.LOAD ACO. 

.-'ILL THE OUTPUT BUFFER WITH -VS. 



.LOAD THE FPS. 



:SET UP THE DESTINATION ADDRESS. 
.-TEST INSTRUCTION. 

.GET THE FPS. 
.GET THE FEC. 

.SAVE THE DATA IN CASE OF ERROR. 



CKFPCDO FP11F FlTG PNT 
TEST # 1i - STCOF TEST 
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SEQUENCE 60 



3127 
3128 
3129 
3130 
3131 
3132 
3133 
31 3A 
3135 
3136 
3137 
3138 
3139 
3U0 
3U1 
3U2 
3K3 
3KA 
3145 
3U6 
3U7 
3U8 
3H9 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 



013462 
013464 
013470 
013474 
013500 
013502 
01 3504 

013506 
013512 
013514 
013516 
013520 
013522 
013526 
013530 



013534 
013536 
013542 
013546 
013552 
013554 
013556 
013560 

013564 
013564 
013566 



013570 
013574 
013576 



013602 
013602 
013604 



013606 
013614 
013620 
013622 
013624 
013634 
013634 



010102 
062702 
012703 
012700 
022223 
001014 
077003 

016102 
020204 
001025 
005702 
100003 
026105 
001027 
000161 



010102 
062702 
012703 
012700 
022223 
001003 
077003 
000161 



104051 
000760 



020461 
001002 
000161 



104052 
000751 



016137 
010537 
104053 
000742 

104412 



000010 
013624 
000004 



000032 

000034 
000046 



000020 
013624 
000004 



000040 



000034 
000044 



000036 
001254 



001256 



53S: 



54S: 



NOV 
ADD 
MOV 

nov 

CHP 

BNE 

S06 

NOV 
CMP 
BNE 
TST 
BPL 
CMP 
BNE 
JMP 



R1-R2 
#l6-R2 
«266s,R3 
»4.R0 

(R2)*.(R3)* 
65$ 

R0.53$ 

32(R1),R2 

R2.R4 

70$ 

R2 

54$ 

34(R1}.R5 
75$ 

46(R1) 



.•CHECK THE RESULT. 



.-BRANCH IF INCORRECT. 



;IS THE FPS CORRECT? 

.•BRANCH IF FPS INCORRECT. 

;IF EXPECTED FPS IS NEGATIVE. THEN 

;G0 AHEAD AND CHECK THE FEC. 

.•BRANCH IF FEC IS INCORRECT. 
.•RETURN. 



.RESULT INCORRECT: 

65$: MOV R1.R2 

ADO «20.R2 

NOV #260$, R3 

NOV «4.R0 

66$: CMP (R2)*.(R3)* 

BNE 67$ 

SOB R0.66$ 

JMP 40(R1) 
.OTHERWISE REPORT RESULT INCORRECT HERE 
67$: 

68$: ERROR ♦SI :DATA ERROR 

BR 54$ 



.-SEE IF ERROR WAS ANTICIPATED. 

.•BRANCH IF NOT ANTICIPATED. 
:IF ERROR UAS ANTICIPATED RETURN. 



;FPS INCORRECT: 
^0$: CMP 
BNE 
JMP 



R4.34(R1) 

71$ 

44 (R1) 



.-WAS THE ERROR ANTICIPATED. 
.•BRANCH IF NOT ANTICIPATED. 
:IF IT UAS ANTICIPATED RETURN. 



•THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
^1$: 



72$: 



ERROR 
BR 



♦52 
54$ 



REPORT FEC INCORRECT; 



^5$ 

76$: 

260$: 
250$: 



NOV 
NOV 
ERROR 
BR 

.WORD 
RSETUP 



36{R1).$TNP12 
R5.$TNP11 
♦55 
54$ 

-1.-1,-1,-1 



;FPS X 



;FEC X 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLT6 PNT PRT C PUCRO PI1113^ 30-0CT-81 11:15 PAGE 
TEST # U - STCFD WITH ILLEGAL ACCUMULATOR TEST 



SEQUENCE 61 



3181 



3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 



S8TTL TEST t U - STCFO WITH ILLEGAL ACCUMULATOR TEST^ 
iTEST*?"*** STCFD WITH ILLEGAL ACCUMULATOR TEST 



•THIS TEST STCFD WITH ILLEGAL AC 6. 
ft 



01 3636 


000004 




013640 


012737 


013646 


013646 


012700 


040000 


01 3652 


170100 


013662 


013654 


012737 


013662 


1 76006 




013664 


1 70204 




013666 


170305 




013670 


020427 


i / AAAA 

1 40000 


013674 


001 004 




013676 


022705 


AAAAAO 
000002 


013702 


AA i A i A 

001010 










013706 


010437 


001242 


013712 


012737 


140000 


013720 


104062 




013722 


000406 




013724 


010537 


001242 


013730 


012737 


000002 


013736 


104063 




013740 






013740 


104412 





TST14: SCOPE 



001110 



001236 



200$: 



210$: 



MOV 

MOV 

LDFPS 

MOV 

STCFD 

STFPS 

STST 

CMP 

BNE 

CMP 

BNE 

BR 



#200$-$LPERR 
#40000, RO 
RO 

«210S,$TMP2 
AC0,AC6 

R4 

R5 

R4 .#140000 

226$ 

#2-R5 

236s 

240S 



;SET UP THE LOOP ON ERROR ADDRESS. 
.•DISSABLE INTERRUPTS. 



001240 



001240 



: REPORT FEC 
^30$: MOV 
MOV 
ERROR 
240S: 

RSETUP 



INCORRECT AFTER USE 
R5.$TMP4 
f2.fTMP3 
♦6S 



;DPM002 



.-THIS TEST INSTRUCTION SHOULD CAUSE AN ERROR. 

.GET FPS. 

;GET FEC. 

;IS FPS CORRECT? 

.-BRANCH IF INCORRECT FPS. 

;IS FEC CORRECT? 

:8RANCH IF INCORRECT. 



;REPORT FPS INCORRECT AFTER USE OF 
^20$: MOV R4,$TMP4 

MOV #1 40000. $TMP3 

ERROR ^62 

BR 240$ 



ILLEGAL ACCUMULATOR. 



.BUT FOST ST767 X TO 567 INTO 577 



OF ILLEGAL ACCUMULATOR. 



;FEC< 2 ST577 X 

;60 INITIALIZE THE FPS AND STACK; AND 
.-SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL 6"). 



CKFPCDO FP11F FLTG PNT PRT C 
TEST # 15 - CLRO TEST 

3213 



K 5 



HACRO «1 1 1 3 30-OC T-81 11:15 PAGE 24 



.S8TTL TEST # 15 - CLRD TEST 



SEQUENCE 6? 



.••TEST 15 



CLRD TEST 



;*THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 
• * 



013742 
32K 0137U 

3215 013752 

3216 013756 

3217 013762 

3218 013766 

3219 013770 

3220 013772 

3221 013776 

3222 014002 

3223 014004 

3224 014012 
3225 

5226 014014 

3227 014016 

3228 014022 

3229 014026 

3230 014030 

3231 014032 

3232 014034 

3233 014040 

3234 014042 

3235 014046 

3236 014050 
3237 

3238 

3239 014052 

3240 014060 

3241 014066 

3242 014070 
3243 

3244 

3245 014072 

3246 014076 

3247 014104 

3248 014106 
3249 

3250 

3251 014110 

3252 014114 

3253 014122 

3254 014124 
3255 

3256 

3257 014126 

3258 014130 

3259 014132 

3260 OK 154 
3261 

5262 GUI 56 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
012701 
170101 
012737 
170410 

170205 
012702 
012701 
005721 
001010 
077203 
022705 
001014 
020027 
001020 
000442 



012737 
012737 
104064 
000432 



010437 
012737 
104065 
000423 



010037 
012737 
104066 
000414 



073475 
06/707 
127347 
056770 

073475 



013752 
014136 
014126 
000004 



014126 
000213 



001110 



014012 001236 



000004 
014126 



000204 
014126 



014126 
014146 



001242 
000204 



001242 
014126 



001240 
001242 



001240 



001240 



TST15: 
200$: 

IS: 



2S: 



SCOPE 

MOV «200$,SLPERR 

MOV «210$.R0 

MOV «220S.R1 

MOV «4.R2 

HOV (r6)*.(R1)* 

SOB R2.1S 

nOi^ «220$,R0 

HOV #213. Rl 

LDFPS R1 

mv «2S.STHP2 

CLRD (RO) 

STFPS R5 

NOV #4.R2 

NOV f220$.R1 

TST (RD* 

BNE 230S 

SOB R2.3$ 

CMP #204. R5 

BNE 240$ 

CMP R0.#220$ 

BNE 250$ 

BR 260$ 



RESULT NOT 0. REPORT ERROR. 



3$: 



^30$: 



MOV 
MOV 
ERROR 
BR 



#220$.$TMP3 
#270$,$TNP4 
♦64 
260$ 



.-SET UP THE LOOP ON ERROR ADDRESS. 
;S£T UP OUTPUT BUFFER 



:SET UP DESTINATION OPERAND ADDRESS. 
.-SET UP FPS. 



.•TEST INSTRUCTION. 
.GET FPS. 

;SEE IF RESULT CLEAR. 0. 

.•BRANCH IF RESULT INCORRECT. NOT 0. 

.-SEE IF FPS IS CORRECT. 
.BRANCH IF INCORRECT. 
;SEE IF RO IS CORRECT. 
.•BRANCH IF RO IS INCORRECT. 



.BAD DATA = 0 X 11 ♦ZERO ST770 X 



;DPM002 



:REPU«T FPS INCORRECT: 
^40$: MOV R4.$TMP4 

MOV #264.$TMP3 

ERROR ^65 .BAD FPS 

BR 260$ 

•REPORT RO INCORRECT. 
250$: MOV R0-$TMP4 

MOV #2^0$.$TMP3 

ERROR ^66 

BR 260$ 

:THIS IS THE TEST DATA BUFFER. OUTPUT DATA BUFFER. 
J20$: 73475 

67707 

127347 

56770 

:THIS IS THE DATA USED TO SET UP THE OUTPUT BUFFER. 
^10$: 73475 



CKfPCDO fPIU FlTG phi 
TEST # 15 - CLRO TEST 



3263 
32W 
3265 
3266 
3267 
3266 
5269 
5270 
3271 



ouuo 
ouu? 

0UU4 

0UU6 
0U15O 
0U152 
0U154 
0U156 
0U156 



PUT c pwcHO mn3 30-oct-8i n.is 



PAGE ^4-1 



SEQUfNCE 65 



067707 
127347 
056770 

000000 
OOOOOO 
000000 
OOOOOO 

104412 



:THIS 
570$: 



260S: 



67707 

127347 

56770 

IS THE EXPECTED DATA, RESULT: 
0 
0 
0 
0 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTVARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CfcFPCDO FPVF FLTG PHI PftT C MACRO «1113 30-OCT-81 11:15 
TEST • 16 - CLRD WITH ILLEGAL ACCUMULATOR TEST 



n s 

PAGE 25 



SEQUENCE 6^ 



3277 



.s8ttl test # 16 - clrd with illegal acclmulator test 
•West i6 clrd with illegal accumulator test 



.••THIS is a test or CLRD WITH ILLEGAL AC7. 



01 A 160 


00000*1 




5^ '8 0iAl6^ 


AI 07T7 


A 1 / 1 7A 

0141 fQ 


JC'T O'Al'O 


A1 0 7AA 

012700 


A/ AOAA 

040^00 




1 7A1 AA 

1 70100 






A1 07T7 


A1 / OAy 

0144:04 


A1 / OA/ 


1 7A/ A7 










3co^ Oi*>cUo 


1 7nonA 










lOAi^ rtl /. 01 0 


rton/. 07 


140iUy 




AAI AA/ 










Scot UIncc** 


AAI A1 A 

UU I U 1 u 




.JC7V Vl*tCCO 






3291 






3292 






3293 0U230 


010437 


001242 


329A 0H23* 


012737 


U0200 


3295 0U242 


104067 




3296 0U244 


000406 




3297 






3298 






3299 0U246 


010557 


001242 


3300 0U252 


012737 


000002 


3301 0U260 


10A070 




3302 0U262 






0U262 


104412 





001110 



00' 236 



TST16: 
200S: 

210$: 



001240 



001240 



SCOPE 

MOV #200$.SLPERR 

MOV f 40200, RO 

LDFPS RO 

MOV «210S,STMP2 

CLRD AC7 

STFPb R4 

STST R5 

CMP R4 -#140200 

ONE 220$ 

CMP #2-R5 

BNE 230$ 

BR 240$ 



;REPORT INCORRECT FPS: 
220$: MOV R4,$TMP4 

MOV «140200.$TMP3 

ERROR ^67 

BR 240$ 

:REPORT INCORRECT FEC: 
230$: MOV R5.$TMP4 
MOV #2-$TMP3 
ERROR ♦70 



240$: 



RSETUP 



;SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
;SET UP THE FPS, NO INTERRUPTS AND FD-1. 



.TEST INSTRUCTION. 

GET FPS. 
GET FEC. 

IS THE FPS CORRECT? 
BRANCH IF FPS IS INCORRECT. 
IS THE FEC CORRECT? 
BRANCH IF FEC IS INCORRECT. 



;8UT FOSr ST 700X TO 607 INTO 677 



;FEC< 2 ST 677 X 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTyARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?>. 



CKFPCOC FP11F FLTG PNT PRT C MACRO Hi 113 30-OCT-81 11:15 
TEST t 17 - NEGF, ABSF t TSTF SRC W 0 VITH ILLGL AC7 



PAGE 26 



SEQUENCE 65 



3311 



3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
5322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3538 
3339 



014264 
014266 
014274 
014300 
014302 



014312 
014314 

014316 
014322 
014324 
014330 
014332 



014334 
014342 
014346 
014350 



014352 
014560 
014564 
014366 
014370 
014370 



000004 
012737 
012700 
170100 
012737 



014310 170707 



170204 
170305 

022704 
001004 
022705 
001010 
000416 



012737 
010437 
104176 
000407 



012737 
010537 
104377 
000044 

104412 



S8TTL TEST # 17 - NEGF, A8SF t TSTF SRC HD 0 WITH 1LL6L AC7 

•TEST 17 NEGF. ABSF I TSTF SRC ND 0 VITH ILLGL AC7 

•THIS IS A TEST OF THE SPECIAL 
•DEST FLOyS USING THE NEGO INST 
•yiTH MODE ZERO AND ILLEGAL 
•AC7. 



014274 
040200 

014310 



140200 
000002 



140200 
001242 



000002 
001242 



TST17; SCOPE 
OOMIO NOV 

200S: NOV 

LOFPS 
001236 NOV 

210S: NEGD 

STFPS 
STST 

CNP 
BNE 
CNP 
BNE 
BR 



«200S.fLPERR 
#40200, RO 
RO 

#210S.STMP2 

AC 7 

R4 
R5 

#140200. R4 

220$ 

#2.R5 

236$ 

240$ 



.REPORT INCORRECT FPS: 
001240 220$: NOV #1 40200, $TNP3 
NOV R4.$TNP4 
ERROR ♦Vft 
BR 240$ 

REPORT FEC INCORRECT: 



001240 ^30$ 



240$: 



NOV 
NOV 
ERROR 
.WORD 

RScTUP 



#2,$TNP3 
R5,$TNP4 

44 



;SET UP THE LOOP ON EWIOR ADDRESS. ;DPN002 
;SET UP THE FPS. FID-I AND FD-I. 



.TEST INSTRUCTION. 

.GET FPS. 
.GET FEr. 

;IS FPS CORRECT? 
BRANCH IF FPS IS INCORRECT. 
IS FEC CORRECT? 
BRANCH IF FEC IS INCORRECT. 



.FPS BAD 



:FEC BAD 



AND 



GO INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FPIIF FLTG PNT PRT C HACRO Hin3 30-OCT-81 11:15 
TEST # 20 - NEGF , ABSF ( TSTF SRC HODE 0 TEST 



PAGE 27 



SEQL'ENCE 66 



3547 



0H372 

3348 0K374 

3349 014402 

3350 014406 

3351 014410 

3352 014414 

3353 014416 

3354 014420 

3355 014422 

3356 014426 
3357 

3358 014430 

3359 014434 

3360 014436 
3361 

3362 014444 
3363 

3364 014446 

3365 014450 

3366 014454 

3367 014456 

3368 014462 
3369 

3370 014464 

3371 014470 

3372 014472 

3373 014474 

3374 014476 
3575 014502 
3376 014504 
3377 

3378 

3379 014506 

3380 014514 

3381 014522 

3382 014530 

3383 014532 
3384 

3385 

3386 014534 

3387 014542 

3388 014546 

3389 014550 
3390 

3391 

3392 014552 

3393 014554 

3394 014556 



000004 
012737 
012700 
170100 
012700 
172410 
005000 
170100 
012700 
172410 

012700 
170100 
012737 

170700 

170205 
012700 
170100 
012700 
174010 

012701 
005720 
001005 
077103 
022705 
001014 
000442 



012737 
012737 
012737 
104071 
000427 



012737 
010537 
104072 
000420 



101112 
131415 
161710 



S8TTL TEST # 20 - NEGF. ABSF t TSTF SRC MODE 0 TEST 
NEGF, ABSF ft TSTF SRC MODE 0 TEST 



•TEST 20 

•THIS IS A TEST THE NEGF, ABSF AND TSTF 
•SOURCE FLOWS. THE NEGD INSTRUCTION 
•IS USED TO TEST NODE 0 



014402 
000200 

014552 



014562 

000201 
014444 

000200 
014572 

000004 
000204 



014562 
014602 
014572 



000204 
001242 



001110 



001236 



TST20: jCOPE 
NOV 

200$: NOV 

LDFPS 

NOV 

LDD 

CLR 

LDFPS 

NOV 

LDF 

NOV 

LDFPS 

NOV 

230S: NEGD 

STFPS 

NOV 

LDFPS 

NOV 

STD 



1$: 



NOV 
TST 
BNE 
SOB 
CNP 
BNE 
BR 



«200$,$LPERR 

#200,R0 

RO 

«210$.R0 

(R0),AC0 

RO 

RO 

#220$, RO 
(RO),ACO 

#201 .RO 
RO 

#230$.$TNP2 

ACO 
R5 

#200. RO 

RO 

#240$. RO 
ACO.(RO) 

#4.R1 

(RO)* 

250$ 

R1.1$ 

#204. RS 

260$ 

270$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
.SET FD NODE. 

;SET UP ACO. 

.SET ACO = 0 
.-CLEAR THE FPS. 

.-LOAD ACO TO BE A FLOATING 0. 
SET AC0=2ERO 
FLOAT 

SET FD NODE. 



TEST INSTRUCTION. 

GET FPS. 

SET FD NODE. 

GET THE RESULT OUT OF ACO. 

SEE IF THE RESULT IS CORRECT. 

.•BRANCH IF THE RESULT IS INCORRECT. 

;IS THE FPS fOr^-^ECT? 

.-BRANCH IF THE FPS IS INCORRECT. 



;DPN002 



001242 
001240 
001244 



001240 



RESULT INCORRECT, REPf T FAILURE: 



^50$: 



NOV 
NOV 
NOV 
ERROR 
BR 



#^20$. 'NP4 
#280$.*TNP3 
#240$,$TNP5 
♦71 
270$ 



.•EXPECT DO 
;PREV FO INPURE 
.•GOT 



; REPORT FPS INCORRECT: 
260$: NOV #204,$TNP3 

NOV R5.$TNP4 

ERROR ♦72 

BR 270$ 

:THESE ARE TEST DATA TABLES AND AN OUTPUT BUFFER. 
5lO$: 101112 

131415 

161710 



CKfPCDO FPIIF FLTG PNT PRT C 
TEST # 20 - NEGF. ABSF % TSTF 



HACRO mi 13 30-OCT-81 11:15 
SRC NODE 0 TEST 



PAGE ^7-1 



SEQUENCE t7 



3395 0U560 

3396 0IA562 

3397 OK 564 

3398 0U566 

3399 0U570 
3400 

3401 014572 

3402 014574 

3403 014576 

3404 014600 

3405 014602 

3406 014604 

3407 014606 

3408 014610 
3409 

3410 014612 
014612 



111213 
000000 
000000 
000000 
000000 

Mim 

m777 

\mn 

M7777 
000000 
000000 
161710 
111213 



104412 



220S: 

240S: 
280S: 

270$: 



111213 

0 

0 

0 

0 

-1 
-1 
-1 

-1 

0 

0 

161710 
111213 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG PNT F>RT C MACRO Mni3 
TEST f 21 - NE6F, ABSF t TSTF SRC MODE 1 



3411 



0U6H 

3412 0U616 

3413 014624 

3414 014630 

3415 014634 

3416 014640 

3417 014642 

3418 014644 

3419 014650 

3420 0U652 

3421 014656 

3422 014664 

3423 014672 
3424 

3425 014674 

3426 014676 

3427 014702 

3428 014706 

3429 014710 

3430 014712 
3431 

3432 014714 

3433 014720 

3434 014722 

3435 014726 

3436 014730 
3437 

34 38 

3439 014732 

3440 014734 

3441 014736 

3442 014740 

3443 014742 

3444 014744 

3445 014746 

3446 014750 

3447 014752 

3448 014754 

3449 014756 
IhSO 014760 

3451 014762 

3452 014764 

3453 014766 

3454 014770 
34 5 5 

3456 

3457 014772 

3458 014774 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
012737 
012737 
170710 

170205 
012701 
012702 
005721 
001046 
077203 

020027 
001055 
022705 
001061 
000466 



000177 
167574 
137271 
107675 
000000 
000000 
000000 
000000 
177777 
U7777 
177777 
177777 
177777 
177777 
177777 
177777 



011602 
020227 



D 6 

30-0CT-81 11:15 PAGE 28 
SBTTL TEST « 21 - NEGF. ABSF I TSTF SRC WDE 1 



SEQUENCE 68 



014624 
014732 
014762 
000004 



000200 



001110 



*TEST 21 NEGF, ABSF t TSTF SRC MODE 1 

♦THIS IS A TEST THE NEGF, A8SF AND TSTF 
•SOURCE FLOWS. THE NEGO INSTRUCTION 
*IS USED TO TEST MODE 1 
* 

********************* •**************************•*******•*•••#•• 

tST21 : SCOPE 

;SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE DATA BUFFER. 



200S: 
1$: 



014762 

014672 001236 
014772 000004 



014762 
000004 



230S: 



2$: 



014762 
000204 



NOV 
NOV 
NOV 
NOV 
NOV 
SOB 
NOV 
LDFPS 
NOV 
NOV 
NOV 
NEGO 

STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 
BNE 
CNP 
BNE 
BR 



#200$,$LPERR 
#210$,R0 
#220$, R1 
#4.R2 

(R0)*,(R1)* 
R2,1f 
#200, RO 
RO 

#220$, RO 
#230S,STHP2 

#240$,ERRVECT :SET UP VECTOR 4 IN CASE OF ERROR. 



;DPN002 



;SET FD NODE. 

;SET UP THE OPERAND ADDRESS. 



(RO) 
R5 

#220S,R1 

#4,R2 

(RD* 

250S 

R2.2S 

R0-#220$ 
266s 
#204, R5 
270$ 
280S 



.-TEST INSTRUCTION. 
;GET FPS. 

:SEE IF RESULT IS CORRECT. 



.•BRANCH IF NOT CORRECT. 



;IS RO CORRECT? 

.-BRANCH IF NOT CORRECT. 
;IS THE FPS CORRECT? 
.BRANCH IF NOT CORRECT. 



: THESE ARE TEST DATA TABLES AND A BUFFER. 
5lO$: 177 

167574 

137271 

107675 
2US: 0 

0 

0 

0 



220S: 



014674 



;IF A TRAP TO 4 OCCURS CONE HERE: 

^40$: NOV (SP).R2 ;SEfc IF THE TRAP OCCURRtD ON THE TEST INSTR. 

CNP R2,#230S^2 



CKFPCDO FP11F FLTG PNT 
TEST # 21 - NEGF. A8SF 



3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
5483 
3484 
3485 
3486 
3487 



015000 
015002 
015006 
015010 

015014 
015016 
015022 
015024 



01 5026 
015034 
015042 
015050 
015052 



015054 
015062 
015066 
015070 



015072 
015076 
015104 

015106 
015106 



PRT C MACRO H1 113 
t TSTF SRC NODE 1 



30-0CT-81 11:15 PAGE 



E 6 
28-1 



SEQUENCE 69 



001405 
020227 
001402 
000137 

022626 
010237 
104107 
000430 



012737 
012737 
012737 
104073 
000415 



012737 
010037 
104074 
000406 



010537 
012737 
104075 



104412 



014676 
051774 

001236 



014742 001242 
014732 001240 
014762 001244 



014762 001240 
001242 



001240 

000204 001244 



.•BRANCH IF YES. 



5$ 



BEQ 3$ 
CMP R2.ir230$*4 

BEQ 3S .-BRANCH IF YES. 

J«P CPSPUR ; OTHERWISE 60 REPORT A SPURIOUS TRAP TO 4. 
REPORT A FAILURE IN THE FOST FLOWS RESULTED IN AN ODD ADDRESS TRAP TO 4. 

.•RESET THE STACK. 



CMP 
NOV 
ERROR 
BR 



(SP)*. (SP)* 
R2.$THP2 
♦l67 
280$ 



REPORT RESULT INCORRECT. 



^50$: 



NOV 
NOV 
NOV 
ERROR 
BR 



:R0 INCORRECT: 
^60$: MOV 
MOV 
ERROR 
BR 



#2U$.$THP4 
#210$.$THP3 
#220$.$TMP5 
♦73 
280S 



«220S.$TMP3 

R0,STMP4 

♦74 

280S 



;REP0RT FPS INCORRECT: 
^70$: MOV R5-$TMP3 

MOV *204.$THP5 

ERROR ^75 



280$: 



RSETUP 



.-ODD ADRES 

.•BUT FDSTX IN ST 771 



ATA XI 1*0 ST 31 2X 



:R0 BADX 



;FPS X 



AND 



GO INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG f>NT PRT C MACRO H1113 30-OCT-81 11:15 
TEST f 22 - NCGF, A8SF t TSTF SRC MODE 2 TEST 



F 6 
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SEQUENCE 



3488 



3489 

5490 

5491 

5492 

5493 

5494 

54 95 

5496 

3497 

3498 

5499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 



015110 
015112 
015120 
015124 
015130 
015134 
015136 
015140 
015144 
015146 
015152 
015160 



015170 
015172 
015176 
015202 
015204 
015206 

015210 
015214 
015216 
015222 
015224 



015226 
015230 
015232 
015234 
015236 
015240 
015242 
015244 
015246 
015250 
015252 
015254 
015256 
015260 
015262 
015264 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
012737 
012737 



015166 170620 



170205 
012701 
012702 
005721 
001046 
077203 

020027 
001055 
022705 
001061 
000466 



000177 
167574 
137271 
107675 
000000 
000000 
000000 
000000 

Mim 
Mim 
Mim 
ymn 
ymii 

}77777 
\77777 
y77777 



.S8TTL TEST # 22 - NEGF. ABSF t TSTF SRC RODE 2 TEST 



.••TEST 22 



NEGF. ABSF t TSTF SRC MODE 2 TEST 



;*THIS IS A TEST THE NEGF. ABSF AND TSTF 
.••SOURCE FLOWS. THE ABSO INSTRUCTION 
.••IS USED TO TEST HOOE 2 



015120 
015226 
015256 
000004 



000200 

015256 
015166 
015266 



015256 
000004 



015266 
000204 



001110 



TST22: 
200S: 

1$: 



001236 
000004 



SCOPE 

NOV 

NOV 

MOV 

NOV 

MOV 

SOB 

MOV 

LDFPS 

NOV 

NOV 

NOV 



230S: ABSD 



STFPS 

NOV 

NOV 

TST 

BNE 

SOB 



2$: 



:THESE 
hO$: 



290$: 



CMP 
BNE 
CMP 
BNE 
BR 

ARE TEST 
177 
167574 
137271 
107675 
0 
0 
0 
0 



«200$.$LPERR 
#210$.R0 
«220S.R1 
#4.R2 

(r6)*.(R1)* 

R2.1$ 

«260,R0 

RO 

#220S.R0 

#230$,$THP2 

«240S,ERRVECT 

(RO)^ 

R5 

«220$,R1 

#4.R2 

(R1)* 

250$ 

R2,2$ 

R0.#220$*10 
266$ 
#204. R5 
270$ 
280$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 



.-SET FD. 

;SET UP THE OPERAND ADDRESS. 

.-SET UP VECTOR 4 IN CASE OF AN ERROR. 

;TEST INSTRUCTION. 



;DPM002 



.-GET FPS. 



.•CHECK RESULT. 



.BRANCH IF INCORRECT. 



;IS RO CORRECT? 
.•BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
:BRANCH IF INCORRECT. 



DATA TABLES AND DATA BUFFER. 



015266 011602 



220$: 



IF A TRAI 



TO 4 OCCURS COME HERE. 



^40$: NOV (SP),R2 



.-SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 



CKFPCDO FPllF FLTG PNT PRT C 
TEST # 22 - NEGF, A8SF t TSTF 



MACRO Ml 113 30-0CT-81 11:15 
SRC MODE 2 TEST 
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SEQUENCE 71 



3536 
3537 
3S38 
3539 
3540 
35A1 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 



015270 
015274 
015276 
015502 
015304 

015310 
015312 
015316 
015320 



015322 
015330 
015336 
015344 
015346 



015350 
015356 
015562 
015364 



015366 
015372 
01 5400 

015402 
015402 



020227 
001405 
020227 
001402 
000137 

022626 
010257 
104076 
000450 



012757 
012757 
012757 
104077 
000415 



012757 
010057 
104100 
000406 



010557 
012757 
104101 



104412 



015170 
015172 
051774 

001256 



015256 
015226 
015256 



015262 
001242 



001240 
000204 



CMP 
BEQ 
CMP 
BEQ 
JMP 

; REPORT AN FDST 

5$: CMP 
MOV 
ERROR 
BR 



; BRANCH IF YES. 



R2, #2301*2 
5$ 

R2,#250»*4 
5$ .-BRANCH IF YES. 

CPSPUR .OTHERWISE 60 REPORT SPURIOUS TRAP TO 4 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP)*,(SP)* 



R2.STMP2 
♦ 76 
280$ 



001240 
001242 
001244 



001240 



REPORT RESULT INCORRECT 



^50$: 



MOV 
MOV 
MOV 
ERROR 
BR 



#290$.$TMP5 
#210$,$THP4 
#220$,$TMP5 
♦77 
280S 



001244 



;REP0RT RO INCORRECT: 

^60$: MOV #220$^4.$THP5 

MOV R0.$TMP4 

ERROR ♦I 00 

BR 280$ 

.REPORT FPS INCORRECT: 
270$: MOV R5-$TMP5 

MOV #264,$TMP5 

ERROR ♦lOl 



280$: 



RSEfUP 



.ODD ADRES 
;BUT FDSTX 



IN ST 771 



;8AD DATA X11*0 ST 51 2X 



;R0 BADX 



;FPS X 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



H 6 



CKFPCDO FPllF FLTG PHI PRT C MACRO H1113 30-0CT-81 11:15 MGE JO 
TEST # 23 - N£CF. ABSF I TSTF SRC HOOE 4 TEST 



SEQUENCE 72 



3566 



3567 

3568 

3569 

3570 

3571 

3572 

3573 

35 7<. 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 



015404 
015406 
015414 
015420 
015424 
015430 
015432 
015434 
015440 
015442 
015446 
015454 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
012737 
012737 



015462 170640 



015464 
015466 
015472 
015476 
015500 
01550? 

015504 
015510 
015512 
015516 
015520 



015522 
015524 
015526 
015530 
015532 
015534 
015536 
015540 
015542 
015544 
015546 
015550 
015552 
015554 
015556 
015560 



170205 
012701 
012702 
005721 
001046 
077203 

020027 
001055 
022705 
001061 
000466 



000177 
117273 
147576 
177071 
000000 
000000 
000000 
000000 
^77777 
}77777 
}77777 
}77777 
-[77777 
}77777 
}77777 
}77777 



.S8TTL TEST # 23 - NEGF, ABSF I TSTF SRC NODE 4 TEST 
!-iTEST*23* NEGF, ABSF I TSTF SRC MODE 4 TEST 



.••THIS IS A TEST THE NEGF. ABSF AND TSTF 
.••SOURCE FLOWS. THE ABSD INSTRUCTION 
.••IS USED TO TEST NODE 4 



015414 001110 
015522 
015542 
000004 



000200 
015552 

015462 001236 
015562 000004 



015542 
000004 



015542 
000204 



TST23: SCOPE 
MOV 

200$: nOV 

nov 
nov 

1$: NOV 
SOB 
MOV 
LOFPS 
MOV 
MOV 
MOV 

24 C$: ABSD 



2$: 



STFPS 

MOV 

MOV 

TST 

6NE 

SOB 

CMP 
6NE 
CMP 
BNE 
BR 



#200$,$LPERR 
4r210$,R0 
«220$,R1 
#4-R2 

(R0)*,(R1)* 
R2.U 
#260, RO 

RO 

«230$,R0 

#240$.fTMP2 

«250$,ERRVECT 

-(RO) 

R5 

«220S,R1 
*4.R2 

(RD* 

260$ 

R2,2S 

R0.#220$ 
270$ 
#204. R5 
280$ 
290$ 



.SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



SET FD. 

SET UP THE OPERAND ADDRESS. 

SET UP VECTOR 4 IN CASE OF AN ERROR. 

TEST INSTRUCTION. 



.DPM002 



GET FPS. 



: CHECK RESULT, 



.BRANCH IF INCORRECT. 



IS RO CORRECT? 
BRANCH IF INCORRECT. 
IS THE FPS CORRECT? 
BRANCH IF INCORRECT. 



;THESE 
^10$: 



300$: 



220$: 



230$: 



ARE TEST DATA TABLES AND DATA BUFFER. 

177 

117273 

147576 

177071 

0 

0 

0 

0 

-1 
-1 
-1 
-1 
-1 
-1 
-1 
-1 



015562 011602 



IF A TRAP TO 4 OCCURS COME HERE. 



hO$: NOV (SP),R2 



;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 



L 



CKFPCOO FPIIF FLTG PNT PRT C MACRO H1113 30-0CT-81 11:15 PAGE 
TEST # 23 - NEGF. A8SF I TSTF SRC MODE 4 TEST 



SEQUENCE 71 



36U 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 



015564 
015570 
015572 
015576 
015600 

015604 
015606 
015612 
015614 


020:27 
001405 
020227 
001402 
0JO137 

022626 
010237 
104102 
000430 


015464 
015466 
051774 

001236 




:REP0RT 
if: 


015616 
015624 
015632 
015640 
015642 


012737 
012737 
012737 
104103 

AAA / 4 f 

000415 


015532 
015522 
015542 


001240 
001242 
001244 


:REPORT 
^60$: 


015644 
015652 
015656 
015660 


012737 
010037 

4 A y 4 A ^ 

104104 
000406 


015542 
001242 


001240 


^;;eport 

J70$: 


015662 
015666 
015674 


010537 
012737 
104105 


001240 
000204 


001244 


:REP0RT 
^80$: 


015676 
015676 


104412 






2901: 



CUP 
BEQ 
CMP 
BEQ 
J«P 

AN FDST 

CHP 

MOV 

ERROR 
BR 



NOV 

NOV 

NOV 

ERROR 

BR 



NOV 
NOV 
ERROR 
BR 



NOV 
NOV 
ERROR 



RSETUP 



.BRANCH IF YES. 



R2,#240$*2 
3S 

R2.#240$*4 
3$ 'BRANCH IF YES 

CPSPUR ; OTHERWISE 60 REPORT SPURIOUS TRAP TO 4, 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP)*.(SP)* 



R2-$TNP2 
♦ 162 
290$ 



#300$.fTNP3 
#210$.$TNP4 
#220$.$TNP5 
♦ 103 
290S 



#220$.$TNP3 
R0.$TNP4 
♦164 
290S 



R5.$TNP3 
#264.STNP5 

♦105 



:0DD ADRES 
:BUT FDSTX 



IN ST 771 



;8AD DATA Xll^O ST 31 2X 



:R0 BAOX 



;FPS X 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



I 



CUFPCDO FP11F FLT6 PNT PRT C HACRO M1113 30-0CT-81 11:15 
TEST # 24 - NEGF. A8SF t TSTF SRC BOOE 3 TEST 



PAGE 51 



i, 



SEQUENCE 



3644 



015700 

3645 015702 

3646 015710 

3647 015714 

3648 015720 

3649 015724 

3650 015726 

3651 015730 

3652 015734 

3653 015736 

3654 015742 

3655 015750 
3656 

3657 015756 
3658 

3659 015760 

3660 015762 

3661 015766 

3662 015772 

3663 015774 

3664 015776 
5665 016000 

3666 016004 

3667 016006 

3668 016012 

3669 016014 
3670 

3671 

3672 016016 

3673 016020 

3674 016022 

3675 016024 

3676 016036 

3677 016046 

3678 016050 

3679 016052 

3680 016054 

3681 016056 

3682 016060 

3683 016062 

3684 016064 
3685 

3686 

3687 016066 

3688 016070 

3689 016074 

3690 016076 

3691 016102 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
012737 
012737 

170630 

1 70205 
012701 
012702 
005721 
001052 
077203 
020027 
001061 
022705 
001065 
000472 



000177 
147576 
177071 
107576 
000000 
y77777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 



011602 
020227 
00U05 
020227 
001402 



015710 
016016 
016046 
000010 



000200 

016056 
015756 
016066 



016046 
000004 



016060 
000204 



S8TTL TEST # 24 - NEGF . A8SF t TSTF SRC MODE 3 TEST 

iTEST 24 NEGF, ABSF i TSTF SRC MODE 3 TEST 

•THIS IS A TEST THE NEGF, ABSF AND TSTF 
•SOURCE FLOWS. THE A8SD INSTRUCTION 
•IS USED TO TEST MODE 3 
* 



001110 



001236 
000004 



TST24: SCOPE 

NOV «200$,$LPERR 

200S: NOV «210S,R0 

NOV #220S,R1 

NOV »10.R2 

IS: NOV (R0)*,(R1)* 

SOB R2.1$ 

NOV «200,R0 

LDFPS RO 

NOV #230S,R0 

NOV #240$,$TNP2 

NOV #250S,ERRVECT 

240S: A8SD a(RO)* 



.SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 



SET FO. 

SET UP THE OPERAND ADDRESS. 

SET UP VECTOR 4 IN CASE OF AN ERROR. 

TEST INSTRUCTION. 



;DPN002 



2S: 



STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 

BNE 

CNP 

BNE 

BR 



R5 

#220$. R1 

#4,R2 

(R1)* 

260S 

R2.2f 

R0.#230$*2 

276$ 

#204. R5 

280S 

2901 



GET FPS. 

.-CHECK RESULT. 



.•BRANCH IF INCORRECT. 

;IS RO CORRECT? 
.•BRANCH IF INCORRECT. 
;IS THE fPS CORRECT? 
.•BRANCH IF INCORRECT. 



016046 177777 
000000 OOCOOO 



015760 
015762 



:THESE 
^lOS: 



300S: 
220S: 



230S: 



;IF A 
250$: 



ARE TEST DATA TABLES AND DATA BUFFER. 

177 

147576 
177071 

1075 76- 220$. -1.-1.-1 
0^0.0.6 

-1 
-1 
-1 
-1 
-1 
-1 
-1 

TRAP TO 4 OCCURS CONE HERE. 
NOV (SP),R2 .-SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 

CNP R2.#240$*2 

BEO 3$ .-BRANCH IF YES. 

CNP R2.#240$*4 

BEO 3$ .'BRANCH IF YES. 



CKFPCOO FPllF FLTG PNT PRT C MACRO mi13 30-OCT-81 11:15 
TEST » 24 - NEGF. ABSF t TSTF SRC MODE 3 TEST 
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SEQUENCE 75 



5692 016104 
5693 

369A 016110 

3695 016112 

3696 016116 

3697 016120 
3698 

3699 

3700 016122 

3701 016130 

3702 016136 

3703 016KA 

3704 016146 
3705 

3706 

3707 016150 

3708 016156 

3709 016162 
5710 016164 
3711 

3712 016166 
5713 016172 
3714 016200 
5715 

5716 016202 
016202 



000157 

022626 
010257 
104106 
000450 



012757 
012757 
012757 
104110 
000415 



012757 
010057 
104111 
000406 

010557 
012737 
104112 



104412 



051774 
001236 



016036 
016016 
016046 



016060 
001242 



001240 
000204 



001240 
001242 
001244 



001240 



001244 



JHP 



CPSPUH ; OTHERWISE 60 REPORT SPURIOUS TRAP TO 4. 



REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 



CMP 

nov 

ERROR 
BR 



(SP)*.(SP)» 
R2.STMP2 
♦l66 
290S 



REPORT RESULT INCORRECT 



^60S 



MOV 
MOV 
MOV 
ERROR 
BR 



#300$,$TMP5 
#210S.$TMP4 
#220$.STMP5 
♦ 110 
290$ 



RO INCORRECT: 
MOV #230$*2,$TMP5 
MOV R0-$TMP4 
ERROR ♦111 
BR 290$ 
REPORT FPS INCORRECT: 

MOV R5-$TMP5 
MOV #204.fTHP5 
ERROR ^112 



:REPORT 
J 70$: 



^80$: 



290$: 



RSETUP 



;ODD ADRES 

;8UT FDSTX IN ST 771 



;8AD DATA X11«0 ST 3127 



;R0 INCORRECT. 



;FPSX 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPCOO PP11P PLTG PNT PRT C HACRO mi13 30-0CT-81 11:15 
TEST « 25 - NEGF. A8SF I TSTF SRC MODE 5 TEST 
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SEQUENCE 



3717 



S8TTL TEST # 25 - NEGF, ABSF I TSTF SRC NODE S TEST 



•TEST 25 

•THIS IS A TEST THE NEGF. A8SF AND TSTF 
•SOURCE FLOWS. THE NEGD INSTRUCTION 
•IS USED TO TEST MODE 5 











jf lO 




V iCf Jf 


01^714 

w 1 Qc 1 


X710 




V ' C f vv 


016^PP 


J' cw 




01P701 


016352 


J' t 1 




U 1 C r wC 


000010 

WWWW 1 V 


Jf cc 








Jf CJ 








Jf c* 


016?^ 


V 1 C ' WW 


000200 

wWC wv 


^7?S 

Jf CJ 


016240 


170100 

1 • W 1 WW 




Ji cu 


016?42 

V 1 uc*tc 


012700 

W ■ C f WW 


016364 

W ' VJV~ 




016246 


012737 


016262 

W 1 Wfc WL 


3728 


016254 


012737 


016372 












016262 


170750 

1 • W ' ^W 




3731 












1 70205 

1 r WCW^ 




^733 

Jf J J 




012701 


016352 

W ■ %tJ^^ 


3734 


016272 


012702 

W ' t ' Wt 


000004 


3735 

J f J J 


016276 


005721 




^7% 

Jr JV 


016300 

V ' vJW 


001052 

WW * w t 




3737 

Jf Jf 


016302 


077203 

W ' ' b W V 




^738 


016304 


020027 


016362 

W ■ W ^Wfc 


^739 

Jf J' 


016310 


001061 

WW 1 WW 1 




Jf "tW 


016312 


022705 

WC Q f V J 


000204 

W WWb w^ 


Jf H 1 


016316 

\J 1 %JJ ID 


001065 

WW 1 WW^ 




^74P 


016^PO 


000472 

WWW" ' (. 




^743 
jf'^j 








^744 








J 1 ~ J 


016322 


000176 

WW 1 • w 




3746 


016324 


1 77074 




3747 


016326 


127374 




374fl 


016330 

W 1 \JJJV 


157677 


016352 


3749 


016342 


000000 




3750 


0163*4 


000000 




5751 


016346 


000000 




3752 


016350 


000000 




3753 


016352 


M7777 




3754 


016354 


y77777 




3755 


016356 


}77777 




3756 


016360 


U7777 




3757 


016362 


^77777 




3758 


016364 


}77777 




3759 


016366 


\77777 




3760 


016370 


]77777 




3761 








3762 








3763 


016372 


011602 




376* 


016374 


020227 


016264 



TST25: 
200$: 

IS: 



240S: 



2S: 



\77777 



;THESE 
^lOS: 



300$: 
220$: 
230$: 



SCOPE 

nOV «200$,$LPERR 

nov «210$,R0 

FWV #220$-Rl 

nov «io,r2 

NOV (R0)*.(R1)* 

SOB R2.1$ 

nov #200. RO 

LDFPS RO 

MOV «230$«2.R0 

NOV «2A0$,$THP2 

NOV #250$,ERRVECT 

NEGD a-(RO) 

STFPS R5 

NOV #220$. Rl 

NOV #4,R2 

TST (RD* 

BNE 260$ 

SOB R2.2$ 

CNP R0.#230$ 

BNE 270$ 

CNP #204, R5 

BNE 280$ 

BR 290$ 



.SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



SET FD. 

SET UP THE OPERAND ADDRESS. 

SET UP VECTOR 4 IN CASE OF AN ERROR. 

TEST INSTRUCTION. 

GET FPS. 

.CHECK RESULT. 



.BRANCH IF INCORRECT. 

.-IS RO CORRECT? 
.-BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.-BRANCH IF INCORRECT. 



;DPN002 



ARE TEST DATA TABLES AND DATA BUFFER. 
176 

177074 
127374 

157677,220$. -1.-1.-1 

0 

0 

0 

0 

-1 

-1 

-1 

-1 

-1 

-1 

-1 

-1 



:IF A TRAP TO 4 OCCURS CONE HERE. 
^50$: NOV (SP),R2 ;SEfc 
CNP R2,#2A0$t2 



IF THE TRAP OCCURRED ON THE TEST INSTRUCMON. 



CKFPCOO FP11F FLTG PNT PRT C MACRO «1113 30-OCT-81 11 
TEST t 25 - NEGF. ABSF I TSTF S«C MODE 5 TEST 



15 



n 6 

PAGE 52-1 



SEQUENCE 77 





001 405 






1766 01640? 


0?0??7 


016266 

V * WC W 




77^7 016406 


00140? 

W ' *• VC 






J7(M 016410 


0001 37 

WV ' J ' 


051 774 




3769 








X770 016414 


0??6?6 

VC C wC w 






3771 016416 


010237 

W • WC J ' 


001236 

VV c ^w 




377? 01642? 


1 04 1 1 3 

1 W~ * * -J 






3773 016424 


000430 

wwv^ ^w 






3774 








3775 








3776 016426 


012737 

W ' C ' J ' 


016342 


00^240 


3777 016434 


012737 


016322 


001242 


3778 016442 


012737 


016352 


001244 


3779 016450 


104114 






3780 016452 


000415 






3781 








3782 








3783 016454 


012737 


016362 


001240 


3784 016462 


010037 


001242 




3785 016466 


104115 






3786 016470 


000406 






3787 








3788 016472 


010537 


001240 




3789 016476 


012737 


000204 


001244 


3790 016504 


104116 






3791 








3792 016506 








016506 


104412 







: RE PORT 

is. 



BEG 
C«P 
BEO 
J«P 

AN FDST 
C«P 

nov 

ERROR 
BR 



;8RAN<H IF rES. 



3S 

R2.i»240l*4 
3S 'BRANCH IF VES 

CPSPUR .OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP)*.(SP)* 



R2.$TNP2 
♦ 113 
290S 



REPORT RESULT INCORRECT: 



^60S: 



NOV 
NOV 
NOV 
ERROR 
BR 



#300S.$TNP3 
#210S.$TNP4 
#220S,$TNP5 

♦ 114 
290S 



:REP0RT RO INCORRECT: 
J70$: NOV #230$,$TNP3 

NOV R0.STNP4 

ERROR ♦lis 

BR 290$ 
:REPORT fPS INCORRECT: 
^80$: NOV R5.$TNP3 

NOV #204,STNP5 

ERROR ♦116 



290S: 



RSETUP 



.-ODD ADRES 

.BUT FDSTK IN ST 771 



.BAD DATA Xll*0 ST 3127 



;R0 BADX 



;FPSX 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOfTyARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPCOO FPIIF FLTG PNT PRT C PIACRO P(1113 30-OCT-81 11:15 
TEST « 26 - NEGF. ABSF AND TSTF SRC PtOOE 6 TEST 



N 6 
PAGE 33 



SEQUENCE 



3795 



016510 

3794 

3795 016512 

3796 016520 

3797 016524 

3798 016530 

3799 016534 

3800 016536 

3801 016540 

3802 016544 

3803 016546 

3804 016552 

3805 016560 
3806 

3807 0165'>6 
3808 

3809 016572 

3810 016574 

3811 016600 

3812 016604 

3813 016606 

3814 016610 

3815 016612 

3816 016616 

3817 016620 

3818 016624 

3819 016626 
3820 

3621 

3822 016630 

3823 016632 
5824 016634 

3825 016636 

3826 016642 

3827 016644 

3828 016646 

3829 016650 

3830 016652 

3831 016654 

3832 016656 

3833 016660 

3834 016662 

3835 016664 

3836 016666 

3837 016670 
3838 

3839 

3840 016672 



000004 

012767 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
0:2767 
012767 



SSTTL TEST « 26 - NEGF , ABSF AMD TSTF SPC NODE 6 TEST 
NE6F. ABSF AMD TSTF SRC NODE 6 TEST 



•TEST 26 

•THIS IS A TEST THE MEGF, ABSF AND TSTF 
•SOURCE FLOWS. THC ASSD INSTRUCTION 
•IS USED TO TEST («DE 6 
• 



016520 
016630 
016652 
000004 



000200 

016643 
016566 
016672 



162370 



TST26: 



200S: 



IS: 



162456 
161216 



170660 000007 



170205 
012701 
012702 
005721 
001047 
077203 
020027 
001056 
022705 
001062 
000467 



000177 
161524 
131273 
107174 
000000 
000000 
000000 
000000 
M7777 
}77777 
}77777 
}77777 
}77777 
}77777 
}77777 
}77777 



011602 



016652 
000004 



016643 
000204 



230S: 



2S: 



000000 



:THESE 
^lOS: 



290$: 



220S: 



SCOPE 

.DSA8L 

NOV 

NOV 

NOV 

NOV 

NOV 

soe 

NOV 

LDFPS 

NOV 

NOV 

NOV 

ABSD 

STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 

BME 

CNP 

BNE 

BR 



«200S,$lPERR 
#210t,R0 
#220$,R1 
#4.R2 

<R0)*,<R1)* 
R2-1S 
«260.RO 
RO 

#220f-7,R0 

#230$,$TNP2 

«240$,ERRVECT 

7(R0) 

R5 

«220$.R1 

#4.R2 

(R1)» 

250$ 

R2.2$ 

R0.*220$-7 
266$ 
#204. R5 
270$ 
280$ 



.DISABLE NODE 6 TO NODE 3 CONVERSIONS 
:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



.SET FD. 

.SET UP THE OPERAND ADDRESS. 

:SET UP VECTOR 4 IM CASE OF AM ERROR. 



;DPN002 



.-TEST INSTRUCTION. 

.GET FPS. 

.•CHECK RESULT. 



.-BRANCH IF INCORRECT. 

;IS RO CORRECT? 
;BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.•BRANCH IF INCORRECT. 



ARE TEST DATA TABLES AND DATA BUFFER. 

177 

161524 

131273 

107174. 

0 

0 

0 

0 



IF A TRAP TO 4 OCCURS CONE HERE. 



^40$ 



NOV 



(SP).R2 



.SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 



CKFPCDO FPIIF FLT6 PNT PRT C 
TEST # 26 - NEGF , ABSF AND TSTF 



BACRO mn3 30-OCT-81 11:15 PAGE 
SRC MODE 6 TEST 



B 7 
33-1 



SEQUENCE 79 



3841 016674 

3842 016700 
5843 016702 

3844 016706 

3845 016710 
3846 

3847 016714 

3848 016716 

3849 016/22 

3850 016724 
3851 

3852 

3853 016726 

3854 016734 

3855 016742 

3856 016750 

3857 016752 
3858 

3859 

3860 016754 

3861 016762 

3862 016766 

3863 016770 
3864 

3865 016772 

3866 016776 

3867 017004 

3868 017006 
017006 



3869 



020227 
001405 
020227 
001402 
000167 

022626 
010267 
104117 
000422 



012767 
012767 
012767 
104120 
000407 



012767 
010067 
104124 
000400 

010567 
012767 
104122 

104412 



016570 
016572 
033060 

162314 



016642 
016630 
016652 



016643 
162254 



162242 
000204 



162304 
162300 
162274 



•REPORT 
5$: 



C«P 
BEO 
CIV 
BEO 

jfiP 

AN FDST 
CMP 
hOV 
ERROR 
BR 



.-BRANCH IF VES. 



R2,«230S>2 
3$ 

R2.«230$^4 
3$ 'BRANCH IF VES. 

CPSPUR ; OTHERWISE 60 REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP)*,(SP)* 



: REPORT RESULT 
550$: «0V 

nov 
nov 

ERROR 
BR 



R2.$THP2 

♦ 117 
270$ 

INCORRECT: 
#290$,$THP3 
*210$.$TnP4 
#220$,$THP5 

♦ 120 
270$ 



162256 ^60$ 



REPORT RO INCORRECT: 



162240 



MOV #220$-7.$TMP3 

MOV R0-$T«P4 

ERROR >1^4 

BR 270$ 
.•REPORT FPS INCORRECT: 

270$: nov R5.$T«P3 

MOV #264,$T«P5 

ERROR ♦I 22 



280$: 



RSETUP 



.ENABL AAA 



.•ODD ADRES 
;BUT FDSTX 



IN 3T 771 



;8AD DATA XI 1*0 ST 3127 



;R0 BADX 



;FPSX 

.GO INITIALIZE THE FPS AND STACIC; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CWiiOLE SWITCH «»EGISTER (HAS 
.THE USER TYPED CONTROL G?). 
.REENABLE WDE 6 TO MODE 3 CONVERSIONS 



CKFPCDO FP11F FLTG PNT PRT C HACRO M1113 30-0CT-81 11:15 
TEST « 27 > NEGF, ABSF AND TSTF SRC MODI 7 TEST 



3870 



3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 



PAGE ^4 ' 

.S8TTL TEST 0 27 - NEGF. ABSF AND TSTF SRC NODE 7 TES^ 



SEQUENCE 



017010 
017012 
017020 
017024 
017030 
017034 
017036 
017040 
017044 
017046 
017052 
017060 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012700 
012737 
012737 



017020 
017130 
017160 
000010 



000200 

017161 
017066 
017200 



001110 



017066 170770 000007 



017072 
017074 
017100 
017104 
017106 
017110 
017112 
017116 
017120 
017124 
017126 



017130 
017132 
017134 
017136 
017150 
017152 
017154 
017156 
017160 
017162 
017164 
017166 
017170 
017172 
017174 
017176 



017200 
017202 



170205 
012701 
012702 
005721 
001052 
077203 
020027 
001061 
022705 
001065 
000472 



000177 
167574 
137271 
107675 
000000 
000000 
000000 
000000 
y77777 
}77777 
y77777 
}77777 
^77777 
\77777 
\77777 
}77777 



011602 
020227 



017160 
000004 



017161 



000204 



001236 
000004 



•TEST 27 NEGF, ABSF AND TSTF SRC NODE 7 TEST 

•THIS IS A TEST THE NEGF, ABSF AND TSTF 
•SOURCE FLOWS. THE ABSD INSTRUCTION 
•IS USED TO TEST NODE 6 
* 

••••••••••••••••••••*•••*••••••••••••••••••*••••*•< 

tST27: SCOPE 

NOV #200$,$LPERR 
200$: NOV #210$.R0 

NOV #220$.R1 

NOV #10, R2 
1$: NOV (R0)*,(R1)* 

SOB R2.1S 

NOV #200, RO 

LDFPS RO 

NOV #230$-7,R0 

NOV #240$,$TNP2 

NOV #250$.ERRVECT 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



;DPN002 



240$: 



2$: 



NEGD 

STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 

BNE 

CNP 

BNE 

BR 



a7(R0) 
R5 

#220$,R1 

#4,R2 

(R1)* 

260S 

R2,2$ 

R0.#230$-7 
276$ 
#204, R5 
280$ 
290$ 



SET FD. 

SET UP THE OPERAND ADDRESS. 
SET UP VECTOR 4 IN CASE OF AN ERROR. 
TEST INSTRUCTION. 



GET FPS. 

.■CHECK RESULT. 



.•BRANCH IF INCORRECT. 

;IS RO CORRECT? 
;BRANCH IF INCORRECT. 
;1S THE FPS CORRECT? 
.•BRANCH IF INCORRECT. 



017160 ^77777 



017070 



.THESE ARE TEST DATA TABLES AND DATA BUFFER. 
210$: 177 

167574 

137271 

107675. 220$.-1. -1,-1 
300$: 0 
0 
0 
0 

220$: -1 
-1 
-1 
-1 

230$: -1 
-1 
-1 
-1 

•IF A TRAP TO 4 OCCURS CONE HERE. 

^50$: NOV (SP).R2 ;SEt IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 

CNP R2.#240$+2 



CUFPCDO FPllF FLTG PNT PRT C MACRO «ni3 50-0CT-81 11:15 
TEST # 27 - NEGf. ABSF /WO TSTF SRC NODE 7 TEST 



PAGE 



0 7 
34-1 



SEQUENCE 8' 



3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 



017206 
017210 
017214 
017216 

017222 
017224 
017230 
017232 



017234 
017242 
017250 
017256 
017260 



017262 
017270 
017274 
017276 

017300 
017304 
017312 

017314 
017314 



001405 
020227 
001402 
000137 

022626 
010237 
104123 
000430 



012737 
012737 
012737 
104124 
000415 



012737 
010037 
104125 
000406 

010537 
012737 
104126 



104412 



017072 
051774 

001236 



017150 
017130 
017160 



017161 
001242 



001240 
000204 



BEQ 
CMP 
BEQ 



.-BRAMCH IF YES. 



3$ 

R2.#240$*4 
3$ .BRANCH IF YES. 

CPSPUR ; OTHERWISE 60 REPORT SPURIOUS TRAP TO 4. 



is 



REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 



CW> 
MOV 
ERROR 
BR 



00''240 
001242 
001244 



:REPORT RESULT 
^60$: nOV 

nov 
nov 

ERROR 
BR 



(SP)*,(SP)* 
R2.fTHP2 
♦ 1^3 
290S 

INCORRECT: 
#300$,$THP3 
f210$,$THP4 
«220$,$TMP5 
♦124 
290$ 



001240 ^70S 



REPORT RO INCORRECT: 



001244 



^ORT 
^80S: 



290$: 



HOV #230$-7.$THP3 

NOV R0.$THP4 

ERROR ♦I^S 

BR 290$ 
FPS INCORRECT: 

MOV R5j$TMP3 

MOV «204,$TMP5 

ERROR ^126 



RSETUP 



;00D ADRES 

;BUT FOSTX IN ST 771 



;SAD DATA XI 1*0 ST 3127 



:R0 BADX 



;FPSX 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FPIIF FLTG PNT PRT C HACRO Nil 13 30-OCT-81 11:15 PAGE 35 
TEST « 30 - NEGF, ABSF AND TSTF SRC NODE 6. GR7 



SEQUENCE 



3946 



3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 



017316 000004 



S8TTL TEST * 30 - NEGF. ABSF AND TSTF SRC «0DE 6. 6R7 

•TEST 30 NEGF, ABSF AND TSTF SRC NODE 6, GR7 

•THIS IS A TEST THE NEGF. ABSF AND TSTF 
•SOURCE FLOWS. THE NEGD INSTRUCTION 
•IS USED TO TEST MODE 6 



017320 
017326 
017332 
017336 
017342 
017344 
017346 
017352 
017354 
017362 



012767 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012767 
012767 



017326 
017424 
017444 
000004 



000200 

017370 
017464 



16^562 



TST30: 

200$: 

1$: 



161654 
160414 



017370 170767 000050 



017444 
000004 



000204 



017374 170205 

017376 012701 

017402 012702 

017406 005721 

017410 001043 

017412 077203 

017414 022705 

017420 001052 

017422 000457 



017424 000127 

017426 137475 

017430 147372 

017432 117057 

017434 000000 

017436 000000 

017440 000000 

017442 000000 

017444 Umi 

017446 ynm 

017450 ymn 

017452 \nm 

017454 \mn 

017456 Mim 

017460 Mim 

017462 Mim 



017464 011602 

017466 020227 017372 

017472 001405 

017474 020227 017374 



230$: 



2$: 



SCOPE 

.DSABL 

NOV 

NOV 

NOV 

NOV 

NOV 

SOB 

NOV 

LDFPS 

NOV 

NOV 

NEGD 

STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 

BNE 

BR 



ANA 

«200$.$LPERR 
#210$.R0 
#220$, R1 
#4.R2 

(R0)*.(R1)* 
R2,1$ 
#200, RO 
RO 

#230$,$TNP2 
#240$,ERRVECT 

220$ 
R5 

#220$, R1 
#4.R2 
(R1) + 
250$ 
R2.2$ 
#264, RS 
260$ 
270$ 



.DISABLE NODE 6 TO NODE 3 CONVERSIONS 
;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



.-SET FD. 

;SET UP VECTOR 4 IN CASE OF AN ERROR. 

.TEST INSTRUCTION. 

;GET FPS. 

.•CHECK RESULT. 



.•DPN002 



.BRANCH IF INCORRECT. 

;IS THE FPS CORRECT? 
;BRANCH IF INCORRECT. 



.THESE ARE TEST DATA TABLES AND DATA BUFFER. 
210$: 127 

137475 

147372 

117057 
280$: 0 

0 

0 

0 

220$: -1 
-1 
-1 
-1 
-1 
-1 
-1 
-1 

:IF A TRAP TO 4 
^40$: NOV 

CNP 

BEO 

CNP 



OCCURS CONE HERE. 

(SP),R2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 

R2.#J30$*2 

3$ .'BRANCH IF YES. 

R2,#230$^4 



CICFPCDO FP11F FLTG PNT 
TEST # 30 - NEGF. A8SF 



399A 
3995 
3996 
3997 
3998 
3999 
AOOC 
A001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 



4014 



017500 
017502 

017506 
017510 
017514 
017516 



017520 
017526 
017534 
017542 
01 7544 

017546 
017552 
017560 

017562 
017562 



PRT 
AND 



C 

TSTF 



MACRO H1 113 
SRC MODE 6, 



001402 
000167 

022626 
010267 
104127 
000421 



012767 
012767 
012767 
104130 
000406 

010567 
012767 
104151 



104412 



032266 
161522 



017434 
017424 
017444 



161466 
000204 



30-OCT-81 
GR7 



11:15 PAGE 



F 7 
35-1 



SEQUENCE 85 



BEO 3S .-BRANCH IF YES. 

JHP CPSPUR .-OTHERWISE GO REPORT SPURIOUS TRAP TO 4, 

:REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 

h: CMP (SP)*.(SP)* 



CMP 
MOV 
ERROR 
BR 



R2.$TMP2 
♦ 1^7 
270$ 



161512 
161506 
16^502 



161464 



REPORT RESULT INCORRECT 



^50$ 



MOV 
MOV 
MOV 
ERROR 
BR 



#280$,$TMP3 
#?10$,$TMP4 
#^20S,$TMP5 

♦ 130 
270$ 



REPORT FPS INCORRECT: 



^60$ 



270$; 



MOV 
MOV 
ERROR 



RSETUP 



R5.$TMP3 
/r204,$TMP5 
+131 



;ODD ADRES 

.-BUT FDSTX IN ST 771 



;8AD DATA Xl1*0 ST 3127 



.ENABL AMA 



;FPSX 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 
REENABLE MODE 6 TO MODE 3 CONVERSIONS 



r 



CKFPCOO ff'^^f FLTG PNT PRT C macro M1113 30-OCT-81 11:15 
TEST t 3' - NEGF. A8SF AND TSTF SRC «ODE 7, 6R7 



PAGE 36 



SEQUENCE 



4015 



4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4C53 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 



017564 
017566 
017574 
01 7600 
01 7604 
017610 
017612 
017614 
01 7620 
017622 
017630 



017642 
017644 
017650 
017654 
017656 
017660 
017662 
017666 
017670 



017672 
017674 
017676 
017700 
017712 
017714 
017716 
017720 
017722 
017724 
017726 
017730 
017732 
017734 
017736 
017740 



017742 
017744 
017750 
017752 
017756 



.S8TTL TEST # 31 - NEGF, ABSF AND TSTF SPC MODE 7. 6R7 
iTEST*3r******NE6FrABSF AND TSTF SRC NODE ?. GR7 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
170100 
012737 
012737 



•THIS IS A TEST THE NEGF, ABSF AND TSTF 
•SOURCE FLOWS. THE ABSD INSTRUCTION 
*JS USED TO TEST NODE 7 
* 



017574 
017672 
017722 
000010 



000200 



001110 



TST31 
200$: 

1S: 



017636 001236 
017742 000004 



017636 170677 000070 



170205 
012701 
012702 
005721 
001047 
077203 
022705 
001056 
000463 



000137 
045607 
101230 
045607 
000000 
000000 
000000 
000000 

Mmi 

M7777 
y77777 
y77777 
\77777 
\77777 
\77777 
\77777 



011602 
020227 
001405 
020227 
001402 



017722 
000004 



000204 



230S: 



2%: 



0^7722 \77777 



01 7640 
017642 



;THESE 
^lOS: 



290$: 
220$: 
250$: 



;IF A 
^40$: 



SCOPE 

nOV #200$.$LPERR 

NOV #210$,R0 

NOV #220$-R1 

NOV #10, R^ 

NOV (R0)*,(R1)* 

SOB R2.1$ 

NOV #200, RO 

LDFPS RO 

MOV #230$,$TNP2 

NOV #240$,ERRVECT 

ABSD a250$ 



STFPS 

NOV 

NOV 

TST 

BNE 

SOB 

CNP 

BNE 

BP 



R5 

#220$, R1 
#4.R2 

(Rb* 

260$ 
R2,2$ 
#204, R 5 
270$ 
280$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 



;SET FD. 

SET UP VECTOR 4 IN CASE OF AN ERROR. 

TEST INSTRUCTION. 

GET FPS. 

; CHECK RESULT. 

.•BRANCH IF INCORRECT. 

;IS THE FPS CORRECT? 
.BRANCH IF INCORRECT. 



;DPN002 



ARE TEfT DATA TABLES AND DATA BUFFER. 
137 

045607 
101230 

«5607.220$,-1,-1,-1 

0 

0 

0 

0 

-1 

-1 

-1 

-1 

-1 

-1 

-1 

-1 

^"WV^^ * (SPM2^°"^ ""^SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
CNP R2,#230$*2 

BEO 3$ ;BRANCH IF YES. 

CNP R2,#230$*4 

BEO 3$ .-BRANCH IF 



CKFPCDO FPUF FLTG PNT PRT C 
TEST f 31 - NEGF. ABSF AND TSTF 



MACRO H1113 30-0CT-81 11:15 PAGE 
SRC NODE 7, 6R7 



H 7 
36-1 



SEQUENCE 85 



<.063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 



017760 000137 



017764 
017766 
017772 
017774 



017776 
020004 
020012 
020020 
020022 

020024 
020030 
020036 

020040 
020040 



022626 
010237 
104132 
000421 



012737 
012737 
012737 
104133 
000406 

010537 
012737 
104134 



104412 



051774 
001236 



017712 
01 7672 
017722 



001240 
000204 



CPSPUR ; OTHERWISE 60 REPORT SPURIOUS TRAP TO 4. 



REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 



C«P 
MOV 
ERROR 
BR 



(SP)*,(SP)* 
R2.fTNP2 
♦l52 
280S 



001240 
001242 
001244 



001244 



REPORT RESULT INCORRECT 



^60S 



MOV 
MOV 
MOV 
ERROR 
BR 

:REPORT FPS INCORRECT. 

570$: MOV R5.$TMP3 ^ 
MOV #204,$TMP5 
ERROR ♦I 34 



#290$.fTMP3 
#210$.STMP4 
/r220$.STMP5 
♦ 133 
280$ 



280$: 



RSETUP 



;0DD AORES 

;8UT FDSTX IN ST 771 



;BAD DATA Xll»0 ST 3127 



;fPSX 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SyiTCH REGISTER (HAS 
THE USER TYPED CONTROL G?>. 



CKFPCOO FPllF FLTG PNT PRT C 
TEST # 32 - SPECIAL OEST, WOE 

4088 



MACRO H1113 
0, TEST 



30-OCT-81 11:15 PAGE 37 



SEQUENCE 86 



4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

<.113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4156 



020042 
020044 
020052 
020056 
020060 
020064 
020066 



020076 
020100 
020104 
020106 
020112 
020114 
020120 
020124 
020130 
020132 
020134 
020136 
020U2 
020144 



020146 
020150 
020152 
020154 
0201 56 
020160 
020162 
020164 
020166 
020170 
020172 
020174 



020176 
020204 
020212 
020220 
020222 
020224 



000004 
012737 
012700 
170100 
012700 
172410 
012737 



020074 170700 



170205 
012700 
170100 
012700 
174010 
012700 
012701 
012702 
022021 
001021 
077203 
022705 
001033 
000440 



013572 
046013 
057246 
013570 
113572 
046013 
057246 
013570 
000000 
000000 
000000 
000000 



012737 
012737 
023737 
001002 
104135 
000410 



.S8TTL TEST t 32 - SPECIAL DEST, MODE 0. TEST 



.••TEST 32 



SPECIAL DEST. MODE 0. TEST 



.'•THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 0 USING THE NE6D INSTR. 



020052 
000200 

020146 

020074 



000200 

020166 

020166 
0201 56 
000004 

000210 



001110 



001236 







• • 

TST32: 


SCOPE 




MOV 


200S: 


MOV 




LDFPS 




MOV 




LDD 




MOV 


220$: 


NE6D 




STFPS 




MOV 




LDFPS 




MOV 




STD 




MOV 




MOV 




MOV 


1$: 


CMP 




BNE 




SOB 




CMP 




BNE 




BR 



#200$.$LPERR 
#200. RO 
RO 

f210$.R0 
(RO).ACO 
#220i.STMP2 

ACO 

R5 

«200,R0 
RO 

#230$. RO 
ACO,(RO) 
#236$. RO 
#240$. Rl 
#4.R2 

(R0)*.(R1)* 

250$ 

R2.1$ 

#210. R5 

260$ 

270$ 



: THESE ARE DATA 

JlO$: 013572 
46013 
57246 
013570 

240$: 113572 
46013 
57246 
013570 

230$: 0 
0 
0 
0 



.-SET UP THE LOOP ON ERROR ADDRESS. 
.SET FD. 

;SET UP ACO. 



.-TEST INSTRUCTION. 



;DPM002 



;6ET FPS. 
;SET FD. 



;GET THE RESULT. 

;IS THE RESULT CORRECT' 



.BRANCH IF INCORRECT. 

;IS THE FPS CORRECT? 
.BRANCH If INCORRECT. 



TABLES AND A DATA BUFFER. 



020166 
020156 
020146 



001240 
001242 
020166 



020226 104136 



:REPOfiT RESULT 
250$: MOV 
MOV 
CMP 
BNE 
ERROR 
BR 

:REPORT RESULT 
280$: ERROR 



INCORRECT: 
#230$.$TMP3 
#240$.$TMP4 
210$.J30$ 
280$ 

♦ 135 
270$ 

INCORRECT: 

♦ 136 



:E10*200X ST 336 



;BAD DATA NEGF 



CKFPCDO FPIIF FLTG PNT PRT C „NACRO '^1115 
TEST « 32 - SPECIAL OEST. HOOE 0. TEST 



30-OCT-81 11:15 PAGE 



<.157 020230 000406 

4138 

4139 

4140 020232 010537 
<,141 020236 012737 
4142 020244 104137 
4143 

4144 020246 

020246 104412 



BR 



270$ 



001242 
000210 



REPORT FPS INCORRECT: 



001240 



^60$: 



270$; 



MOV 
ERROR 



RSETUP 



R5-$THP4 , 
#2lO,$THP3 
♦ 137 



SEQUENCE 8^ 



;FPSX 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
.VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



CKfPCOO FPIlf FLTG PHI PRT C MACRO mi13 
TEST t 33 - SPECIAL DEST. HOOE 1. TEST 



30-0CT-81 11.15 



K 7 
PAGE 38 



SEQUENCE 88 



<,U5 



4H6 

4U7 

<.U8 

4U9 

A 150 

4151 

4152 

A153 

4154 

4155 

4156 

415^ 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4195 



020250 
020252 
020260 
020264 
020270 
020274 
020276 
020300 
020304 
020310 
020316 
020322 

020324 
020326 
020330 
020334 
020340 
020344 
020346 
020350 
020352 
020356 
020360 
020364 
020366 



020370 
020372 
020374 
020376 
020400 
020402 
020404 
020406 



020410 
020416 
020424 
020426 



020430 
020436 
020442 
020444 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
042710 
012737 
012701 
170101 

170710 
170205 
012701 
012702 
012703 
022122 
001020 
077303 
022700 
001024 
022705 
001030 
000435 



023245 
026720 
122324 
052672 
123245 
026720 
122324 
052672 



012737 
012737 
104140 
000415 



012737 
010037 
104141 
000406 



020260 
020370 
020400 
000004 



020370 
100000 
020324 
000200 



020370 
020400 
000004 



020370 
000210 



020370 
020400 



020370 
001242 



S8TTL TEST t 33 - SPECIAL OEST, MODE 1. TEST 
SPECIAL DEST, MODE 1. TEST 



•TEST 33 

•THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTIMATION FLOWS 

•MODE 1 USING THE NEGD INSTR. 

* 



001110 



TST33: 
200S: 

1$: 



001236 



230S: 



2S: 



SCOPE 

NOV »200S,SLPERR 

NOV »210S,R1 

NOV #220$, RO 

NOV #4.R2 

NOV (R0)*.(R1)* 

SOB R2J$ 

NOV #210S^R0 

BiC #100000, (RO) 

NOV #230$,STNP2 

NOV #200, R1 

LDFPS Rl 

NEGD (RO) 

STfPS R5 

NOV #210$,R1 

NOV #220$, R2 

NOV #4.R3 

CNP (R1)*,(R2)* 

BNE 240$ 

SOB R3,2$ 

CNP #210$, RO 

BNE 250$ 

CNP #210.R5 

BNE 260$ 

BR 270$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE DATA BUFFER. 



;NAKE OPERAND POSITIVE. 
.SET FD. 



;TEST INSTRUCTION. 
.GET FPS. 

:IS THE RESULT CORRECT. 



.•BRANCH IF INCORRECT. 

;IS RO CORRECT. 
.-BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.BRANCH IF INCORRECT. 



;DPN002 



001240 
001242 



:THESE ARE DATA TABLES AND A DATA BUFFER. 
JlO$: 023245 

26720 

122324 

52672 
220$: 123245 

26720 

122324 

52672 

REPORT RESULT INCORRECT: 



^40$ 



NOV 
NOV 
ERROR 
BR 



#210$.$TNP3 
#220$,$TNP4 
♦ 140 
270$ 



001240 ^50$: 



REPORT RO INCORRECT: 



NOV 
NOV 
ERROR 
BR 



#210$,$TNP3 
R0,$TNP4 
♦ 141 
270$ 



:BAD DATA 



.SPEC DESTX 
.ROX 



CKfPCDO FPHF FLTG PNT PRT C 
TES' # 53 - SPECIAL DEST. NODE 



MACRO Mil 13 
1. TEST 



4195 
4196 
4197 

4198 
4199 



020446 
020454 
020460 

020462 
020462 



012737 
010557 
104U2 



104412 



30-OCT-81 11:15 PAGE 



000210 
001242 



001240 



: RE PORT 
^60S: 



270S: 



FPS INCORRECT: 
HOV #210.$T«P5 
WOV R5.$THP4 
ERROR >U2 



RSETUP 



60 INITJALJZE THE FPS ANO STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTyARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKrPCDO FPU? niQ PHI PRT C HACRO «1113 
TCST • 54 - SP€CUl DEST, NODE 2. TEST 



50-OCT-81 11;15 



N 7 

PAGE 59 



SEQUENCE 90 



4200 



020464 

4201 020466 

4202 020474 

4203 020500 
C204 020504 

4205 020510 

4206 020512 
C207 020514 

4208 020520 

4209 020524 

4210 020532 

4211 020536 
4212 

4215 020540 
4214 

4215 020542 

4216 020544 

4217 020550 

4218 020554 

4219 020560 

4220 020562 

4221 020564 

4222 020566 

4223 020572 
4234 020574 

4225 020600 

4226 020602 
4227 

4228 

4229 020604 
4250 020606 

4231 020610 

4232 020612 

4233 020614 

4234 020616 

4235 020620 

4236 0?0622 
4237 

4238 

4239 020624 

4240 020632 

4241 020640 

4242 020642 
4243 

4244 

4245 020644 

4246 020652 

4247 020656 
42^8 020660 



OOOO.U 
0127j7 
012"01 
012700 
012702 
012021 
077202 
012700 
042710 
012737 
012701 
170101 

1 70720 

170205 
012701 
012702 
012703 
022122 
001020 
077505 
022700 
001024 
022705 
001050 
000455 



025245 
026720 
122524 
052672 
125245 
026720 
122324 
052672 



012737 
012737 
104143 
000415 



012737 
010057 
104144 
000406 



.S8TTL TEST # 54 - SPECIAL OEST. HODf 2. TEST 
•iTEST 54 SPECIAL OEST. MODE 2. TEST 



.••THIS IS A TEST Of THE NEGF ABSF AND TSTF DESTINATION FLOWS 
;*nODE 2 USING THE NEGD INSTR. 



020474 
020604 
020614 
000004 



020604 
100000 
020540 
000200 



020604 
020614 
000004 



020614 
000210 



001110 



001236 



• • 

• 




tST54: 


SCOPE 




nOV 


200S: 


NOV 




NOV 




MOV 


1$: 


MOV 




soe 




NOV 




SIC 




NOV 




NOV 




LDFPS 


250S: 


NEGD 




STfPS 




NOV 




NOV 




NOV 


2S: 


CNP 




BNE 




soe 




CNP 




BNE 




CNP 




BNE 




BR 



«200S.SLPERR 
#210S.R1 
#220$. RO 

#4,R2 

(R0)*.(R1)* 

R2JS 

#2lO$.RO 

«1 00000. (RO) 

«250S.STNP2 

«200.R1 

Rl 

(RO)* 
R5 

«210S.R1 
«220S.R2 
«4,R5 

(R1)*.(R2)» 

240$ 

R5,2$ 

«210$tlO.RO 

250$ 

#210.R5 

260$ 

270$ 



.-SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE DATA BUFFER. 



:NAKE OPERAND POSITIVE. 
.SET FD. 



;TEST INSTRUCTION. 

.-GET FPS. 

.IS THE RESULT CORRECT. 



.•BRANCH IF INCORRECT. 

;IS RO CORRECT. 
■BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.BRANCH IF INCORRECT. 



;DPN002 



020604 
020614 



020614 
001242 



001240 
001242 



001240 



: THESE ARE DATA TABLES AND A DATA BUFFER. 
Jl0$: 023245 

26720 

122324 

52672 
220$: 125245 

26720 

122524 

52672 

REPUnT result INCORRECT; 



^40$: 



NOV 
NOV 
ERROR 
BR 



#210$.$TNP5 
«220$.$TNP4 
♦143 
270$ 



•REPORT RO INCORRECT: 

^50$: NOV «210$«10,$TNP5 

NOV R0.$TNP4 

ERROR ♦I 44 

BR 270$ 



.BAD DATA 



.SPEC DESTX ROX 



Cl^PCOO FP11F FLTG PNT PRT C 
TEST t 54 - SPECIAL DEST. NODE 



MACRO Mill 3 

2. TEST 



50-0CT-81 11.15 PAGE 



N 7 

39-1 



4249 
4250 
4251 
4252 



020662 
_ _ 020670 
4253 020674 
4254 

4255 020676 
020676 



012737 
010537 
104145 



104412 



000210 
001242 



001240 ^60$ 



270$: 



REPORT FPS INCORRECT 



MOV 
MOV 

ERROR 



RSE TUP 



f210.$TMP3 
R5-$TMP4 

♦lis 



SEQUENCE 



60 INITIALIZE THE FPS AND STACK. AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTVARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TyPED CONTROL G?). 



CKFPCDO FP11F FLTG PNT PRT C HACRO «1113 
TEST # 35 - SPECIAL DEST, HOOE A. TEST 



30-OCT-81 11:15 



B 8 

PAGE AO 



SEQUENCE 92 



A256 



020700 

4257 020702 

4258 020710 

4259 0207U 
A260 020720 

4261 020724 

4262 020726 

4263 020730 

4264 020734 

4265 020742 

4266 020750 

4267 020754 
4268 

4269 020756 
4270 

4271 020760 

4272 020762 

4273 020766 

4274 020772 

4275 020776 

4276 021000 

4277 021002 

4278 021004 

4279 021010 

4280 021012 

4281 021016 

4282 021020 
4283 

4284 

4285 021022 

4286 021024 

4287 021026 

4288 021030 

4289 021032 

4290 021042 

4291 021044 

4292 021046 

4293 021050 
4294 

4295 

4296 021052 

4297 021060 

4298 021066 

4299 021070 
4300 

4301 

4302 021072 

4303 021100 

4304 021104 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
042760 
012737 
012701 
170101 

170740 

170205 
012701 
012702 
012703 
022122 
001024 
077303 
022700 
001030 
022705 
001034 
000441 



023245 
026720 
122324 
052672 

1 mn 

026720 
\2222^ 
052672 



012737 
012737 
104146 
000415 



012737 
010037 
104147 



S8TTL TEST # 35 - SPECIAL OEST, NODE 4, TEST 

iTEST 35 SPECIAL OEST, NODE «. TEST 

*THIS IS A TEST OF THE NEGF ABSF AMD TSTF DESTINATION FLOWS 
*NODE 4 USING THE NEGD INSTR. 



020710 
021022 
021042 
OOOOOA 



021032 
100000 
020756 
000200 



021022 
021042 
000004 



021022 
000210 



001110 



TST35: 
200$: 

IS: 



177770 
001236 



230$: 



2$: 



SCOPE 

NOV 

NOV 

NOV 

NOV 

NOV 

SOB 

NOV 

BIC 

NOV 

NOV 

LDFPS 

NEGD 

STFPS 

NOV 

NOV 

NOV 

CNP 

BNE 

SOB 

CNP 

BNE 

CNP 

BNE 

BR 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



«200$,$LPERR 
#210$, Rl 
#220$, RO 

HJ(2 
(R0)*.(R1)* 
R2,1$ 

#210$*10,R0 

#100000, -10(R0> ;NAKE OPERAND POSITIVE. 
#230$,$TNP2 

#200, R1 ;SET FD. 

Rl 



;0PH002 



-(R0> 
R5 

#210$, Rl 
#220$, R2 
#A,R3 

(R1)*,(R2)* 
2A0$ 
R3,2$ 
#210$, RO 
250$ 
#210, R5 
260$ 
270$ 



:TEST INSTRUCTION. 
;GET FPS. 



;IS THE RESULT CORRECT. 



.BRANCH IF INCORRECT. 

;IS RO CORRECT. 
.•BRANCH IF INCORRECT. 
,IS THE FPS CORRECT? 
.•BRANCH IF INCORRECT. 



}77777 \77777 



;THESE 
^10$: 



220$: 



ARE DATA TABLES AND A DATA BUFFER. 

0232A5 
26720 
122324 
52672 

.WORD -1,-1,-1,-1 

123245 
26720 
12232A 
52672 



021022 
021 0A2 



021022 
001 2A2 



001 2A0 
001 2A2 



001240 



; REPORT RESULT 
2A0$: NOV 
NOV 
ERROR 
BR 



INCORRECT: 
#210$.$TNP3 
#220$,$TNP4 
4^146 
270$ 



: REPORT RO INCORRECT: 
^50$: NOV #210$,$TNP3 

NOV R0,$TNP4 

ERROR +147 



:BAD DATA 



.SPEC DESTX ROX 



CKFPCOO FPllF FLTG PNT PRT C HACRO Nil 13 
TEST # 35 - SPECIAL DEST, NODE 4. TEST 



30-0CT-81 11:15 
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4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 



021106 000406 



021110 
021116 
021122 

021124 
021124 



012737 
010537 
104150 



104412 



BR 



270$ 



000210 
001242 



001240 



: RE PORT 
^60S: 



270S: 



FPS INCORRECT: 
HOV *210.$THP3 
MOV R5.$THP4 
ERROR ♦I 50 



RSETUP 



SEQUENCE 93 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPCDO FP11F FLTG PHJ PRT C MACRO H1113 
TEST # 36 - SPECIAL DEST. HOOE 3. TEST 



30-OCT-81 11:15 
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SEQUENCE 9^ 



4313 



43H 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 



021126 
021130 
021136 
021142 
021146 
021152 
021154 
021156 
021162 
021166 
021 1 74 
021202 
021206 



021212 
021214 
021220 
021224 
021230 
021232 
021234 
021236 
021242 
021244 
021250 
021252 



021254 
021256 
021260 
021262 
021264 
021266 
021270 
021272 
021274 



021276 
021304 
021312 
021314 



021316 
021324 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
012710 
042737 
012737 
012701 
170101 



021210 170730 



1 70205 
012701 
012702 
012703 
022122 
001021 
077303 
022700 
001025 
022705 
001031 
000436 



023245 
026720 
122324 
052672 
123245 
026720 
123324 
052672 
021254 



012737 
012737 
104150 
000415 



012737 
010037 



.S8TTL TEST # 36 - SPECIAL DEST. MODE 3. TEST 

iTEST 36 SPECIAL DEST, MODE 3. TEST 

•THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 

•MODE 3 USING THE NE6D INSTR. 



021136 
021254 
021264 
000004 



001110 



021274 
021254 

100000 021254 
021210 001236 
000200 



021254 
021264 
000004 



021276 
000210 



TST36; SCOPE 

MOV #200$,$LPERR 

200$: MOV #210$.R1 

MOV #220$, RO 

MOV #4.R2 

1$: MOV (R0)*.(R1)t 

SOB R2J$ 

MOV #230$, RO 

MOV #210$. (RO) 

BIC #100060,210$ 

MOV #240$,$T«P2 

MOV #200, Rl 

LDFPS Rl 

240$: NEGD HM)* 

STFPS R5 

MOV #210$,R1 

MOV #220$, R2 

MOV #4,R3 

2$: CMP (R1)*,(R2)* 

BNE 250$ 

SOB R3,2$ 

CMP #230$*2.R0 

BNE 260$ 

CMP #210,R5 

BNE 270$ 

BR 280$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
.-SET UP THE DATA BUFFER. 



;DPM002 



;«AKE THE OPERAND POSITIVE. 
;SET FD. 

;TEST INSTRUCTION. 



;6ET FPS. 



;IS THE RESULT CORRECT. 



.BRANCH IF INCORRECT. 

;IS RO CORRECT. 
.•BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.BRANCH IF INftRRECT. 



THESE ARE DATA TABLES AND A DATA BUFFER. 



^10$ 



220$: 



230$: 



023245 
26720 
122324 
52672 
12.^245 
26720 
123324 
52672 
210$ 



021254 
021264 



001240 
001242 



•REPORT RESULT 
250$: NOV 
MOV 
ERROR 
BR 



INCORRECT: 
#210$,$TMP3 
#220$,$TMP4 
+150 
280$ 



.BAD DATA 



021276 001240 
001242 



:R£PORT RO INCORRECT: 
560$: MOV #230$*2.$THP3 
MOV R0,$TMP4 



iKfPCDO FPIIF FLTG PNT PRT C HACRO mi13 
TEST # 36 - SPECIAL DEST. NODE 5. TEST 



30-OCT-81 11:15 
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4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 



021330 
021332 



021334 
021342 
021346 

021350 
021350 



104152 
000406 



012737 
010537 
104153 



104412 



ERROR 
BR 



♦ 152 
280S 



.SPEC DESTX ROX 



000210 
001242 



001240 



: REPORT 
^70S: 



280S: 



FPS INCORRECT: 
«0V #210.$T«P3 
NOV R5.STNP4 
ERROR ♦I S3 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FPllf FLTG PHI PRT C HACRO M1113 
TEST # 37 - SPECIAL OEST. HOOE 5, TEST 



F 8 

30-OCT-81 11:15 PAGE 42 



SEQUENCE 96 



4371 



4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

^.395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 
4419 



021352 
021354 
021362 
021366 
021372 
021376 
021400 
021402 
021406 
021414 
021422 
021430 
021434 



021440 
021442 
021446 
021452 
021456 
021460 
021462 
021464 
021470 
021472 
021476 
021500 



C21502 
021504 
021506 
021510 
021512 
021514 
021516 
021520 
021522 



021524 
021532 
021540 
021542 



021544 
021552 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
012760 
042737 
012737 
012701 
170101 



021436 170750 



170205 
012701 
012702 
012703 
022122 
001021 
077503 
022700 
001025 
022705 
001031 
000436 



023245 
026720 
122324 
052672 
123245 
026270 
122324 
052672 
021502 



012737 
012737 
104154 
000415 



012737 
010037 



.S8TTL TEST # 37 - SPECIAL DEST. MODE 5. TEST 
iTESr37***"**SPECIAL DEST, MODE 5. TEST 















tST37: 


SCOPE 


021362 


001110 




MOV 


021502 




200$: 


MOV 


021512 






MOV 


000004 

WWW" 






MOV 






1$: 


MOV 








soe 


021524 






MOV 


021502 


177''76 




MOV 


100000 


021502 




BIG 


021436 


001236 




MOV 


000200 






MOV 








LDFPS 






240$: 


NE6D 








STFPS 


021502 






MOV 


021512 






MOV 


000004 






MOV 






2$: 


CMP 








BNE 








soe 


021522 






CMP 








BNE 


000210 






CMP 








BNE 








BR 



*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
*MODE 5 USING THE NEGD INSTR. 



«200$,$LPERR 
«210$,R1 
#220$, RO 
/r4.R2 

(R0)*,{R1)* 
R2-1$ 

•250$*2.RO 

#210$.-J(R0) 

«10OO6o,210S 

*240$,$TMP2 

f200.R1 

R1 



R5 

#210$. Rl 
#220$, R? 
#4.R3 

(R1)*.(R2>* 
250$ 
R342$ 
#230$, RO 
260$ 
#210, R5 
270$ 
280$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



;DPM002 



.■MAKE THE OPERAND POSITIVE. 
.-SET FD. 

.•TEST INSTRUCTION. 



;6ET FPS 



;IS THE RESULT CORRECT. 



.•BRANCH IF INCORRECT. 

;IS RO CORRECT. 
.•BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
;8RANCH IF INCORRECT. 



THESE ARE DATA TABLES AND A DATA BUFFER. 



^10$: 



220$. 



230$; 



023245 
26720 
122324 
52672 
123245 
26270 
122324 
52672 
210$ 



021502 
021512 



021522 
001242 



001240 
001242 



001240 



REPORT RESULT INCORRECT: 



^50$ 



MOV 
MOV 
ERROR 
BR 



#210$.$TMP3 
#220$.$TMP4 
♦154 
280$ 



.BAD DATA 



•REPORT RO INCORRECT: 
^60$: MOV #230$.$TMP3 
NOV R0,$TMP4 



CKFPCDO FPIU FLTG PMT PRT C MACRO H1113 
TEST # 37 - SPECIAL DEST. HCDE 5. TEST 



30-OCT-81 11:15 
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4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 



•1556 
h560 



021562 
021570 
021574 

021576 
021576 



104155 
000406 



012737 
010537 
104156 



104412 



ERROR 
BR 



♦ 155 
280$ 



000210 
001242 



001240 



:REP0RT 



280S: 



FPS INCORRECT: 
NOV #210,$THP3 
KOV RS.STnP4 
ERROR *156 



RSETUP 



SEQUENCE 97 



.•SPEC DESTX ROX 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FP11F FLT6 PNT PRT C HACRO H1113 30-0CT-81 11:15 
TEST « 40 - SPECIAL DEST, FLOATING NODE 2, TEST 
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SEQUENCE 98 



4429 



021600 

4430 021602 

4431 021610 

4432 021614 

4433 021620 

4434 021624 

4435 021626 

4436 021630 

4437 021634 

4438 021640 

4439 021646 

4440 021652 
4441 

4442 021654 
4443 

4444 021656 

4445 021660 

4446 021664 

4447 021670 

4448 021674 

4449 021676 

4450 021700 

4451 021702 

4452 021706 
<.453 021710 

4454 021714 

4455 021716 
4456 

4457 

4458 021720 

4459 021722 

4460 021724 

4461 021726 

4462 021730 

4463 021732 

4464 021734 

4465 021736 
4466 

4467 

4468 021740 

4469 021746 

4470 021754 

4471 021756 
4472 

4473 

4474 021760 

4475 021766 

4476 021772 

4477 021774 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
042710 
01?737 
OU701 
170101 

170720 

170205 
012701 
012702 
012703 
022122 
001020 
077303 
022700 
001024 
022705 
001030 
000435 



023245 
026720 
122324 
052672 
123245 
026720 
122324 
052672 



012737 
012737 
104150 
000415 



012737 
010037 
104160 
000406 



SBTTL TEST f 40 - SPECIAL OEST. FLOATING HOOE 2. TEST 

•TEST 40 SPECIAL DEST, FLOATING MODE 2, TEST 

*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
•IWDE 2 USING THE NEGF INSTR. 



021610 
021720 
021730 
000004 



021720 
100000 
021654 
000000 



021720 
021730 
000004 



021724 
000010 



001110 



001236 



TST40: SCOPE 
NOV 

200S: NOV 
NOV 
NOV 

IS: NOV 
SOB 
NOV 
BIC 
NOV 
NOV 
LDFPS 

230S: NEGF 

STFPS 
NOV 
NOV 
NOV 

2$; CNP 
BNE 
SOB 
CNP 
BNE 
CNP 
BNE 
BR 



«200S,SLPERR 
#210$, R1 
f220$.R0 
t4.R2 

(R0)*,(R1)* 

R2,1$ 

*210$.R0 

#100000, (RO) 

#230S,STNP2 

#000,R1 

R1 

(R0)« 
R5 

f210S.R1 
#220$, R2 
#4,R3 

(R1)*,(R2)* 

240$ 

R3,2$ 

#210$^4.R0 
250$ 
#010, R5 
260$ 
270$ 



;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



.-NAKE OPERAND POSITIVE. 
;SET FD. 



.-TEST INSTRUCTION. 

;6ET FPS. 

:IS THE RESULT CORRECT. 



.BRANCH IF INCORRECT. 

.IS RO CORRECT. 
.•BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.-BRANCH IF INCORRECT. 



;DPN002 



:THESE ARE DATA TABLES AND A DATA BUFFER. 
^10$: 023245 

26720 

122324 

52672 
220$: 123245 

26720 

122324 

52672 



021720 
021730 



021724 
001242 



001240 
001242 



001240 



: REPORT RESULT 
^40$: NOV 
NOV 
ERROR 
BR 



INCORRECT: 
#210$,$TNP3 
#220$,$TNP4 
♦150 
270$ 



:REPORT RO INCORRECT: 

550$: NOV #210$*4,$TNP3 

NOV R0,$TNP4 

ERROR ^160 

BR 270$ 



;BAD DATA 



;SPEC DESTX ROX 



CKFPCOO »^P11F fLTG PNT PRT C MACRO Hill 3 30-OCT-81 11:15 
TEST # 4,0 - SPECIAL OEST. FLOATING MODE 2. TEST 
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4478 
4479 

4480 021776 

4481 022004 

4482 022010 
4483 

4484 022012 
022012 



012737 
010537 
104161 



104412 



000010 
001 2<.2 



001240 ^60$: 



270S: 



REPORT FPS INCORRECT 



MOV 
MOV 
ERROR 



RSETUP 



#010,STMP3 
R5.$TMP4 

♦ 161 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG PNT PRT C HACRO PI1113 
TEST # 41 - SPECIAL DEST. H00E2. 6R7 



30-0CT-81 11:15 
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SEQUENCE 100 



448S 



4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4550 
4531 
4532 
4533 



022014 
022016 
022024 
022030 
022034 
022040 
022042 
022044 
022050 
022056 
022064 
022070 
022072 

022074 
022076 

022106 
022110 
022114 
022120 
022124 
022126 
022130 
022132 
022136 
022140 
022144 
022146 



022150 
022152 
022154 
022156 



022160 
022166 
022174 
022176 



0222U0 
??2206 

022214 



000004 
012737 
012700 
012701 
012702 
012021 
077202 
012700 
042737 
012737 
012701 
170101 
005001 

m727 
005201 

170205 
012703 
012702 
012704 
022322 
001014 
077403 
022701 
001027 
022705 
001015 
000436 



105201 
005201 
005201 
005201 



012737 
012737 
104162 
000422 



012737 
010537 
104163 
000413 



022024 
0227 50 
022076 
000004 



022076 
100000 
022074 
000200 



000003 
000210 



022076 
022150 



000210 
001242 



s8ttl test # 41 - special dest. n0de2. 6r7 
West 41 special oest. hode2. 6R7 



•THIS is a test of THE NEGF ABSF AND TSTF DESTINATION FLOWS 
*M0DE 2(IW1EDIATE) using THE NEGD INSTR. 



001110 



022076 
001236 



TST41: SCOPE 

nOV «200S.$LPERR 

200$: nOV «210S.R0 

HOV #220$. R1 

HOV #4.R2 

1$: «0V (R0)*.(R1)» 

SOB R2.1$ 

NOV #2^0$. RO 

BIC #100060.220$ 

my #230$.$THP2 

HOV #200. R1 

LDFPS R1 

CLR R1 



.-SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 

.FUKE THE OPERAND POSITIVE. 
.-SET FD. 



005201 005201 



022076 
022150 
000004 



001240 
001242 



001240 



^40$ 



MOV 
«0V 
ERROR 
BR 



#220$.$TW»3 
#210$.$T«P4 

♦162 
270$ 



:REPORT FPS INCORRECT: 
J60$: HOV #210.$THP3 
«0V R5.$TPIP4 
ERROR ^163 
BR 270$ 



;DP«002 



230$: NEGD (R7)* 
220$: 5201.5201.5201.5201 
.NOTE THAT AFTER EXECUTING THIS 

STFPS R5 

NOV #220$. R3 

NOV #210$. R2 

NOV «4.R4 

2$: C«P (R3)*.(R2)* 

BNE 240$ 

SOB R4.2$ 

Znp #3.R1 

BNE 250$ 

C«P #210.R5 

BNE 260$ 

BR 270$ 

:THEjc are DATA TABLE. 
Jl0$: 105201 

5201 

5201 

5201 

REPORT RESULT INCORRECT; 



.TEST INSTRUCTION. 

INSTRUCTION Rl SHOULD CONTAIN 3. 
.GET FPS. 

.-IS THE RESULT CORRECT. 



.-BRANCH IF INCORRECT. 

.-yAS Rl INCREMENTED CORRECTLY. 
.-BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.-BRANCH IF INCORRECT. 



.-BAD DATA 



;FPS 



.-REPORT pr INCORRECTLY INCREMENTED DURING EXECUTION. 



CKfPcoo fp^^f fltg pnt prt c macro hiii3 

TEST t 41 - SPECIAL DES'. N0DE2. GR7 



50-0CT-81 11:15 



022216 
022222 

?2r 



4534 
4555 
4536 
4537 
4538 
4539 
4540 
4541 
4542 022244 
022244 




162701 000003 
006301 

012702 022100 
010237 001240 
160102 

010237 001242 
104164 



104412 



250$: 



270$: 



K 8 

PAGE 44-1 



SUB 
ASL 
MOV 
NOV 

sue 
nov 

ERROR 



RSETUP 



#3.R1 

R1 

#220$*2.R2 

R2,$TnP3 

R1.R2 

R2,$THP4 

♦164 



SEQUENCE m 



:PC BAD CONSTAND B GR7X 

;60 INITIALIZE THE FPS AND STACK; AND 
.SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.-THE USER TYPED CONTROL 6?). 



CKFPCOO FPIIF fLTG PNT PRT C HACRO H1113 
TEST # 42 - SPECIAL DEST. NODE 6. TEST 
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SEQUENCE 102 



4543 



022246 

4544 

4545 022250 

4546 022256 

4547 022262 

4548 022266 

4549 022272 

4550 022274 

4551 022276 

4552 022302 

4553 022310 

4554 022316 

4555 022322 
4556 

4557 022324 

4558 022326 

4559 022332 

4560 022334 

4561 022336 

4562 022340 

4563 022344 

4564 022350 

4565 022354 

4566 022356 

4567 022360 

4568 022362 

4569 022366 

4570 022370 

4571 022374 

4572 022376 
4573 

4574 

4575 022400 

4576 022402 

4577 022404 

4578 022406 

4579 022410 

4580 022412 

4581 022414 

4582 022416 
4583 

4584 
4585 

4586 022420 
458"^ 022426 

4588 022434 

4589 022436 
4590 

4591 



000004 

012767 
012701 
012700 
012702 
012021 
077202 
012700 
042767 
012767 
012701 
170101 

005001 
170760 
170205 
005701 
001030 
012701 
012702 
012703 
022122 
001030 
077303 
022700 
001034 
022705 
001040 
000445 



023245 
026720 
122324 
052672 
123245 
026720 
122324 
052672 



012767 
012767 
104215 
000425 



.S8TTL TEST f 42 - SPECIAL DEST. HODf 6. TEST 



•TEST 42 



SPECIAL DEST. NODE 6. TEST 



•THIS IS A TEST OF THE NEGF A8SF AND TSTF DESTINATION FLOyS 
•MODE 6 USING THE NEGD INSTR. 



022256 
022400 
022410 
000004 



015177 
100000 
022326 
000200 



005201 



022400 
022410 
000004 



015177 
000210 



156632 



TST42: 

200S: 

IS: 



000070 
156720 



230S: 



2$: 



SCOPE 

.DSABL AMA 

NOV «200$,$LPERR 

MOV «210$,R1 

MOV #220$. RO 

NOV «4.R2 

NOV (R0)^.(R1)» 

SOB R2.1S 

NOV #210$-5201.R0 

BIC «100000.2l6s 

NOV #230$.$TNP2 

NOV 4f200,R1 

LDFPS Rl 

CLR Rl 

NEGD 5201 (RO) 

STFPS R5 

TST Rl 

BNE 240t 

NOV #210S,R1 

NOV #220S,R2 

NOV «4.R3 

CNR (Rt)*,(R2)* 

BNE 250S 

SOB R3. 2S 

CHP #2l0S-5201.R0 

BNE 260f 

CNP #210,R5 

BNE 270$ 

BR 2S0S 



DISABLE NODE 6 TO NODE 3 CONVERSIONS 
SET UP THE LOOP ON ERROR ADDRESS. 
SET UP THE DATA BUFFER. 



.NAKE OPERAND POSITIVE. 
;SET FD. 



.-TEST INSTRUCTION. 
;6ET FPS. 

.-IMS THE PC CORRECT AFTER EXECUTION? 
.-IS THE RESULT CORRECT. 



.-BRANCH IF INCORRECT. 

:IS RO CORRECT. 
.-BRANCH IF INCORRECT. 
;IS THE FPS CORRECT? 
.-BRANCH IF INCORRECT. 



;DPN002 



022330 
022332 



156614 
156604 



:^HESE ARE DATA TABLES AND A DATA BUFFER. 
5lO$: 023245 

26720 

122324 

52672 
220$: 123245 

26720 

122324 

52672 



REPORT PC INCORRECT AFTER EXECUTION. 



^40$: NOV «230$«2.$TNP4 

NOV #230$*4.$TNP3 

ERROR ^215 

BR 280$ 

.REPORT RESULT INCORRECT: 



.PC NOT INCRENENTED BV 2. 



nfPCDO FPIIf fLTG PNT PRT C 
TEST » 42 - SPECIAL DEST. HOOE 



MACRO nil 13 
t. TEST 
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SEQUENCE 103 



4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 



4610 



022440 
022446 
022454 
022456 



022460 
022466 
022472 
022474 



022476 
022504 
022510 

022512 
022512 



012767 
012767 
104216 
000415 



012767 
010067 
104217 
000406 



012767 
010567 
104220 



104412 



022400 
022410 



015177 
156550 



000210 
156532 



156572 
156566 



156552 



250$: 



NOV 
NOV 
ERROR 
BR 



#210$.$T«P3 
»220S.$THP4 
♦216 
280S 



;BAD DATA 



:REPORT RO INCORRECT: 
^60$: NOV #2101-5201, $TNP3 
NOV R0,STNP4 



ERROR 
BR 



♦2^7 
280$ 



.SPEC DESTX ROX 



156534 



:REPORT FPS INCORRECT: 
J70$: NOV #210.$TNP3 
NOV R5-$TNP4 
ERROR ♦2^0 



280$: 



RSETJP 



.ENABL ANA 



GO INJTJALiZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTyARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
REENA8LE NODE 6 TO NODE 3 CONVERSIONS 



CUFPCDO fPllF fLTC PNT PRT C PIACRO H1113 
TEST # 43 - SPECIAL OEST, PfOOE 7. TEST 
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SffOUENCf 1(K 



4611 



022514 

4612 022516 

4613 022524 

4614 022530 

4615 022534 

4616 022540 

4617 022542 

4618 022544 

4619 022550 

4620 022556 

4621 022564 

4622 022572 

4623 022576 
4624 

4625 022600 

4626 022602 
4627 

4628 022606 

4629 022610 

4630 022612 

4631 022614 

4632 022620 

4633 022624 

4634 022630 

4635 022632 

4636 022634 

4637 022636 

4638 022642 

4639 022644 

4640 022650 

4641 022652 
4642 

A643 

4644 022654 

4645 022656 

4646 022660 

4647 022662 

4648 022664 

4649 022666 

4650 022670 

4651 022672 

4652 022674 
4653 

4654 

4655 022676 

4656 022704 

4657 022712 

4658 022714 
4659 



000004 
012737 
012701 
012700 
012702 
012021 
077202 
012700 
012760 
042737 
012737 
012701 
170101 

005001 
170770 

170205 
005701 
001031 
012701 
012702 
012703 
022122 
001031 
077303 
022700 
001035 
022705 
001041 
000446 



023245 
026720 
122324 
052672 
123245 
026720 
123324 
052672 
022654 



013737 
013737 
104221 
000425 



.S8TTL TEST f 43 - SPECIAL OEST. NODE 1. TEST 
iTEST 43 SPECIAL OEST. «O0E 7. TEST 



•THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTJMATJON FLOWS 
•nODE 1 USING THE NEGD INSTR. 



TST43: SCOPE 



022524 


001110 




NOV 


022654 




200S: 


NOV 


022664 






NOV 


000004 






NOV 






IS: 


NOV 








SOB 


015473 






NOV 


022654 


005201 




NOV 


100000 


022654 




BIC 


022602 


001236 




NOV 


000200 






NOV 








LDFPS 








CLR 


005201 




240S: 


NEGO 








STFPS 








TST 








6NE 


022654 






NOV 


022664 






NOV 


000004 






.NOV 






2$: 


CNP 








BNE 








SOB 


015475 






CNP 








BNE 


000210 






CNP 








BNE 








BR 



«200S.SLPERR 
«210S,RI 
«220S,RO 
#4.R2 

(R0)*.(R1)» 
R2-l$ 

i250$-5201.R0 

#2101-5201 (RO) 

«1 00000, 21 OS 

«240S,STNP2 

«200,R1 

R1 

Rl 

95201 (RO) 

R5 
Rl 

250S 
«210S,R1 
#220$. R2 
#4,R3 

(R1>*.(R2)* 

260S 

R3.2S 

«2^0S-5201 .RO 

270$ 

«210.RS 

280S 

290S 



;SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 



:DPN002 



;NAICE THE OPERAND POSITIVE. 
.SET FD. 



.TEST INSTRUCTION. 
;GET FPS. 

;IMS THE PC CORRECT AFTER EXECUTION? 
:IS THE RESULT CORRECT. 



.•BRANCH IF INCORRECT. 

IS RO CORRECT. 
BRANCH IF INCORRECT. 
IS THE FPS rORRECT? 
BRANCH IF INCORRECT. 



022604 
022606 



001242 
001240 



•THESE ARE OATA TABLES AND A DATA BUFFER. 

^10$: 023245 

26720 

122324 

52672 
220$: 123245 

26720 

123324 

52672 
230$: 210$ 

•REPORT PC INCORRECT AFTER EXECUTION. 
^50$: NOV 240S*2.$TNP4 
NOV 240$*4.$TNP3 

ERROR +221 
BR 290$ 



:PC NOT INCRENENTED Br 



2. 



CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 
TEST # 43 - SPECIAL DEST. MODE 7. TEST 
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SEQUENCE 105 



4660 

4661 022716 

4662 022724 

4663 022732 

4664 022734 
4665 

4666 

4667 022736 

4668 022744 

4669 022750 

4670 022752 
4671 

4672 

4673 022754 

4674 022762 

4675 022766 
4676 

4677 022770 
022770 



012737 
012737 
104222 
000415 



012737 
010037 
104223 
000406 



012737 
010537 
104224 



104412 



022654 
022664 



015473 
001242 



000210 
001242 



001240 
001242 



001240 



001240 



:fiEP0RT RESULT 
^60S: nOV 

nov 

ERROR 
BR 



INCORRECT: 
#210$.$THP3 
#220S,STnP4 
♦222 
290S 



;BAD DATA 



:REPORT RO INCORRECT: 
J70$: NOV /r230$-5201.STMP3 
HOV R0.$THP4 



ERROR 
BR 



♦2^3 
290S 



;SP£C DESTX ROX 



:REPORT FPS INCORRECT: 
iSOi: MOV #210.$TMP3 
NOV R5-$TMP4 
ERROR ^224 



290$: 



RSETUP 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPCDO FP11F FLT6 PNT PRT C HACRO N1113 
TEST « - NE6D, ABSD AND TSTD TEST 
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SEQUENCE 106 



4683 



022772 

4684 

4685 022774 

4686 023002 

4687 023006 

4688 023010 

4689 023012 

4690 023014 

4691 023016 

4692 023020 

4693 023022 

4694 023024 

4695 023026 

4696 023030 

4697 023032 

4698 023034 

4699 023036 

4700 023040 

4701 023042 

4702 023044 

4703 023046 

4704 023050 

4705 023052 

4706 023054 

4707 023056 
4708 

4709 023056 

4710 023064 

4711 023070 

4712 023072 

4713 023074 

4714 023076 

4715 023100 

4716 023102 

4717 023104 

4718 021106 
4/19 023110 

4720 023112 

4721 023114 

4722 023116 

4723 023120 

4724 023122 

4725 023124 

4726 023126 

4727 023130 

4728 023132 

4729 023134 

4730 023136 

4731 023140 
4732 



000004 

012737 
004737 
000000 
016341 
055772 
021133 
055447 
116341 
055772 
021133 
055447 
016341 
055772 
021133 
055447 
000207 
000210 
000200 
}77777 
104200 
000401 
104201 



012737 
004737 
000000 
152525 
053545 
055565 
057505 
052525 
053545 
055565 
057505 
152525 
053545 
055565 
057505 
000217 
000200 
000210 
y77777 
104200 
000401 
104202 



023002 
023702 



001110 



023064 
023702 



001110 



.SeTTL TEST » 44 - NEGD« ABSD AND TSTD TEST 



:*TEST 44 NEGD, ABSD AND TSTD TEST 

••THIS IS A TEST OF THE NEGD ABSD AND TSTD INSTRUCTIONS. 



TST44: SCOPE 

.•TEST NEGD WITH POS NONZERO OPERAND 



200$: 

IS: 

2S: 



3S: 



4S: 



5S: 



6S: 



7$: 



NOV 
JSR 

0 

16341 

55772 

21133 

55447 

116341 

55772 

21133 

55447 

16341 

55772 

21133 

55447 

207 

210 

200 

-1 

ERROR 
BR 

ERROR 



#200S.SLPERR 
PCJOOOS 



♦200 

7$ 

♦201 



:TEST NEGD WITH NE6 OPERAND. 



210$: 

11$: 

12$: 



13$: 



14$: 



15$: 



16$: 



17$; 



NOV 

JSR 

0 

152525 

53545 

55565 

57505 

52525 

53545 

55565 

57505 

152525 

53545 

55565 

57505 

217 

200 

210 

-1 

ERROR 
BR 

ERROR 



»210$.$LPERR 
PC, 1000$ 



♦ 200 

17$ 

♦202 



;SET UP THE LOOP ON ERROR ADDRESS. 

:FLA6-NEGD. 
.•OPERAND. 



.•RESULT. 



;DP«002 



.-ERROR RES. 



;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.•ERROR FPS. 
;FEC 

;E10< E10*"OOX ST 336 

.BUT ENBT ST 336X WENT TO 053 INTO 453 



.SET UP THE LOOP ON ERROR ADDRESS. 

;FLAG=NEGD. 
.•OPERAND. 



.RESULT. 



.ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 
;FEC 

;E10< — E10*200X S336 

;BUT ENBT X ST336 TO 453 INTO 053 



;DPn002 



.-TEST ABSP WITH POSITIVE OPERAND 



CKFPCDO FP11F FLTG PNT PRT C HACRO H1113 
TEST « 44 - NEGD, ABSD AND TSTD TEST 
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4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4 787 

4788 

4 789 



023140 
023K6 
023152 
023154 
023156 
023160 
023162 
023164 
023166 
023170 
023172 
023174 
023176 
023200 
023202 
023204 
023206 
023210 
023212 
023214 
023216 
023220 
023222 

023222 
023230 
023234 
023236 
023240 
023242 
023244 
023246 
023250 
023252 
023254 
023256 
023260 
023262 
023264 
023266 
023270 
023272 
023274 
023276 
023300 
023302 
023304 

023304 
023312 
023316 
023320 
023322 
023324 
023326 
023330 
023332 



012737 
004737 
000001 
060705 
124735 
060124 
073560 
060705 
124735 
060124 
073560 
160705 
124735 
060124 
073560 
000217 
000200 
000210 
U7777 
104203 
000401 
104203 



012737 
004737 
000001 
154345 
076567 
032123 
043234 
054345 
076567 
032123 
043234 
154345 
076567 
032123 
043234 
000217 
000200 
}77777 
}77777 
104204 
000401 
104171 



012737 

004737 

000002 

012321 

04565« 

070107 

034543 

012321 

045654 



023146 
023702 



001110 



023230 
023702 



001110 



023312 
023702 



001110 



220$: 

21$: 

22$: 



23$: 
24$: 
25$: 
26$: 



27$: 
.•TEST 

230$: 

31$: 

32$: 



33$: 
34$: 
35$: 

36$: 

37$: 
.-TEST 

240$: 

41$: 

42$: 

43$: 



MOV 

JSR 
1 

60705 

124735 

60124 

73560 

60705 

124735 

60124 

73560 

160705 

124735 

60124 

73560 

217 

200 

210 

-1 

ERROR 
BR 

ERROR 



#220$.$LPERR 
PC. 1000$ 



♦203 

27$ 

♦203 



ABSD WITH NEG. OPERAND 



nov 

JSR 
1 

154345 

76567 

32123 

43234 

54345 

76567 

32123 

43234 

154345 

76567 

32123 

43234 

217 

200 

-1 

-1 

ERROR 
BR 

ERROR 



#230$.$LPERR 
PC. 1000$ 



♦204 

37$ 

♦171 



WITH POSITIVE OP 



nov 

JSR 
2 

12321 
45654 
70107 
34543 
12321 
4S654 



#240$.$LPERR 
PC. 1000$ 



SEQUENCE 



.-SET UP TME LOOP ON ERROR ADDRESS. ;DPn002 

.•FLAG=ABSD. 
.•OPERAND. 



.•RESULT. 



.•ERROR RES. 



;FPS BEFORE EXECUTION. 

;FPS AFTER EXECUTION. 

.•ERROR FPS. 

.•EITHER BUT OPIB 

.-BUT ST 055 TO 336 INTO 335 

;0R BUT ENBT ST 335 TO 452 INTO 052 



;SET UP THE LOOP ON ERROR ADDRESS. ;DP«002 



:FLAG=ABSD. 
.OPERAND. 



.■RESULT. 



.ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 

;E10*E10»200X ST 452 



.-SET UP THE LOOP ON ERROR ADDRESS. ;DPn002 

;FLA6=TSTD. 
.•OPERAND. 

.•RESULT. 



ruFPCOO fPIIF HTG PNT PRT C HACRO Nin3 
1EST « 44 - NEGO. ABSD AND TSTD TEST 



4790 023334 

4791 023336 

4792 023340 

4793 023342 

4794 023344 

4795 023546 

4796 023350 

4797 023352 

4798 023354 

4799 023356 

4800 023360 

4801 023362 

4802 023364 

4803 023366 
4804 

4805 023366 

4806 023374 

4807 023400 

4808 023402 

4809 023404 

4810 023406 

4811 023410 

4812 023412 

4813 023414 

4814 023416 

4815 023420 

4816 023422 

4817 023424 

4818 023426 

4819 023430 

4820 023432 

4821 023434 

4822 023436 

4823 023440 

4824 023442 

4825 023444 

4826 023446 

4827 023450 
4828 

4829 023450 

4830 023456 

4831 023462 

4832 023464 

4833 023466 

4834 023470 

4835 023472 

4836 023474 

4837 023476 

4838 023500 

4839 023502 

4840 023504 

4841 023506 

4842 023510 

4843 023512 

4844 023514 

4845 023516 

4846 023520 



070107 
034543 
112321 
045654 
070107 
034543 
000217 
000200 
000210 
}77777 
104205 
000401 
104206 



012737 
004737 
000002 
123765 
023407 
034510 
045621 
123765 
023407 
034510 
045621 
023765 
023407 
034510 
045621 
000207 
000210 
000200 
}77777 
104207 
000401 
104210 



012737 
004737 
000002 
000175 
176737 
07}727 
037574 
000175 

um7 

07}727 
037574 
000000 
000000 
000000 
000000 
000200 
000204 
000214 



44$: 



45$: 



46$: 



47$: 
.TEST 

023374 001110 

023702 250$: 
51$: 
52$: 



53$: 
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70107 

34543 

112321 

45654 

70107 

34543 

217 

200 

210 

-1 

ERROR >205 
BR 47$ 
ERROR ^206 
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SEQUENCE 108 



TSTD WiTH NEC OP 



54$: 



55$: 



56$: 



57$: 
.•TEST 

023456 001110 

023702 260$: 
61$: 
62$: 



63$: 



64$: 



65$: 



nov 

JSR 
2 

123765 

23407 

34510 

45621 

123765 

23407 

34510 

45621 

23765 

23407 

34510 

45621 

207 

210 

200 

-1 

ER^tOR 
BR 

ERROR 
TSTD 0 OP 

nov 

JSR 
2 

175 

176737 
7m7 
37574 
175 

m737 

7U27 

37574 

0 

0 

0 

0 

200 
204 
214 



#250$.$LPERR 
PC. 1000$ 



♦207 

57$ 

♦210 



#260$.$LPERR 
PC. 1000$ 



.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 

:BUT (0P18) X ST044 TO 336 INTO 334 
;BUT ENBT ST 334 TO 453 INTO 053 

.'SET UP THE LOOP ON ERROR ADDRESS. 

;FLAG=TSTD. 
.OPERAND. 

; RESULT. 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 

;BUT 0PB1 ST 055 TO 335 INTO 334 
;8UT ENBT ST 334 TO 053 INTO 453 

.SET UP THE LOOP ON ERROR ADDRESS. 

;FLA6=TSTD. 
.OPERAND. 

.RESULT. 
; ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 



:DPH002 



;DP«002 



CKfPCDO FP11F FLTG PNT PPT C HACRO 
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SEQUENCE 109 



4847 023522 

4848 023524 

4849 023526 

4850 023530 

4851 023532 
4852 

4853 023532 

4854 023S40 

4855 023544 

4856 023546 

4857 023550 

4858 023552 

4859 023554 

4860 023556 
486^ 023560 

4862 023562 

4863 023564 

4864 023566 

4865 023570 

4866 023572 

4867 023574 

4868 023576 

4869 023600 

4870 023602 

4871 023604 

4872 023606 

4873 023610 

4874 023612 

4875 023614 
4876 

4877 023614 

4878 023622 

4879 023626 

4880 023630 

4881 023632 

4882 023634 
48^3 023636 

4884 023640 

4885 023642 

4886 023644 

4887 023646 

4888 023650 

4889 023652 

4890 023654 

4891 023656 

4892 023660 

4893 023662 

4894 023664 

4895 023666 

4896 023670 

4897 023672 

4898 023674 

4899 023676 

4900 023676 



M7777 
104211 
000401 
104212 



012737 023540 001110 

004737 023702 

000002 

100123 

021012 

034565 

043210 

100123 

021012 

034565 

043210 

000000 

000000 

000000 

000000 

040203 

040214 

140214 

}77777 

104211 

000401 

104213 



012737 023622 001110 

O0A737 023702 

000002 

100137 

024613 

057024 

060137 

100137 

024613 

057024 

060137 

000000 

000000 

000000 

000000 

044200 

144214 

044214 

000014 

104211 

000401 

104214 

000137 024316 



66S: 



67$: 
.•TEST 

270S: 

71$: 

72$: 



73$: 
74$: 
75$: 

76$: 

77$: 
.TEST 

280$: 

81$: 

82$: 

83$: 

84$: 

85$: 

86$: 
87$: 



-1 

ERROR 
BR 

ERROR 



♦211 

67$ 

♦212 



TSTD -0 OP F1UV=0 
«0V #270$-$LPERR 
JSR PC, 1000$ 

2 

100123 

21012 

34565 

43210 

100123 

21012 

34565 

43210 

0 

0 

0 

0 

40203 
040214 
140214 
-1 

ERROR ^21 1 
BR 77$ 
ERROR +213 

TSTD -0 OP FJUV=1 
HOV #280$.$LPERR 
JSR PC. 1000$ 

2 

100137 

24613 

57024 

60137 

100137 

24613 

57024 

60137 

0 

0 

0 

0 

44200 
144214 
044214 
14 

ERROR ♦211 
BR 87$ 
ERROR ^21 4 



;BUT 0P1B ST ?55 TO 311 OR 312 INTO 310 
:BUT ENBT ST 310 TO 402 INTO 002 

;SET UP THE LOOP ON ERROR ADDRESS. 

;FLA6=TSTD. 
.•OPERAND. 

.•RESULT. 



;DP«002 



.ERROR RES. 



;FPS BEFORE EXECUTION, 
;FPS AFTER EXECUTION. 
.•ERROR FPS. 



.-BUT FIUV ST 257 TO 355 INTO 255 

: SET UP THE LOOP ON ERROR ADDRESS. 

;FLAG=TSTD. 
.OPERAND. 



.•RESULT. 



.ERROR RES. 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR FPS. 



;BUT flUV ST 257 TO 255 INTO 355 



;DPn002 



J«P 



290$ 



CUFPCDO FP11F FLTG PNT PRT 
TEST ff 4A - NEGD. ABSD AND 



4901 
4902 
4933 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 

4937 023702 012601 

4938 023704 010102 

4939 023706 062702 

4940 023712 012703 

4941 023716 012704 

4942 023722 012223 

4943 023724 077402 

4944 023726 016100 

4945 023732 170100 

4946 023734 012700 

4947 023740 011102 

4948 023742 006302 

4949 023744 006302 

4950 023746 012703 

4951 023752 060203 

4952 023754 010337 

4953 023760 000113 

4954 023762 170710 

4955 023764 000403 

4956 023766 170610 

4957 023770 000401 



C MACRO nil 13 
TS'D TEST 
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G 

48 



SEQUENCE 



THIS SUBROUTINE. lOOOf. IS USED TO SET UP THE OPERANDS, EXECUTE 

THE EITHER A TSTD. AN ABSD OR A NEGD INSTRUCTION AND CHECK THE RESULTS. A CALL 

TO IT IS HADE THUS: 



JSR 


PC.1000S 




FLAG: 


.WORD 


X 


INSTRUCTION TYPE FLAG 


ACARG: 


.WORD 


X ^ X # X # X 


OPERAND 


RES: 


.WORD 


X # X # X # X 


EXPECTED RESULT 


ERRES: 


.WORD 


X / X # X # X 


■ERROR RESULT 


FPS8: 


.WORD 


X 


•FPS BEFORE EXECUTION 


FPSA: 


.WORD 


X 


•FPS AFTER EXECUTION 


FEC: 


.WORD 


X 


EXPECTED FEC 


ERFPS: 


.WORD 


X 


; ERROR FPS. 


ERR1: 


ERROR 


♦X 


;DATA ERROR. 




BR 


CONT 




ERR2: 


ERROR 


♦X 


:FPS ERROR. 


CONT: 






.RETURN ADDRESS 



THE OPERAND IS SET UP IN NATBF1. THEN 

THE EITHER THE TSTD. NEGD OR ABSD INSTRUCTION IS EXECUTED. 

1000$ USES THE FJRST OPERAND AS A FLAG TO DETERMINE WHICH INSTRUCTION 

IS TO BE EXCCUTED: 0 = NEGD. 1 = ABSD. 2 = TSTD. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COf¥»ARED WITH FPSA. IF THIS i:0 IS CORRECT 1000$ RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ 
COVARE IT TO ERROR FPS. IF THIS HATCHES THEN 1000$ WILL RETURN 
TO THE ERROR CALL AT ERR2. OTHERWISE 1000$ ITSELF 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
INSTRUCTION IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN. ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000$ 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1 . OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 





1000$. 


MOV 
MOV 


000002 




ADD 


024304 




MOV 


000004 




MOV 




91$: 


MOV 

SOB 


000032 




MOV 
LDFPS 


024304 




MOV 
MOV 
ASL 
ASL 


023762 




nov 

ADD 


001236 




MOV 
JMP 




1210$: 


NEGD 
BR 

ABSD 
BR 



(SP)*.R1 

R1.R2 

#2,R2 

#1200$.R3 

#4.R4 

(R2)*.(R3}» 
R4.91$ 
32{R1).R0 
RO 

#1200$.R0 

(Rl).R^ 

R2 

R2 

#1210$.R3 
R2.R3 , 
R3.$TMP2 

(R3) 

(RO) 

92$ 

(RO) 

92$ 



;GET A POINTER TO THE *R6l«NTS 
.COPY THE OPERAND. 



.LOAD THE FPS. 

SET UP THE OPERAND ADDRESS. 
GET THE FLAG TO DETERMINE WHICH 
INSTRUCTION TO EXECUTE. 
0 = NEGD. 1 = ABSD. 2 = TSTD 



;60 EXECUTE THE INSTRUCTION. 



CUfPCDO FP11F FLTG PNT PRT C «ACRO 
TEST « 44 - NEGO, ABSD AND TSTD TEST 



H1 113 30-0CT-81 11:15 PAGE 



H 

46 



49S8 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

500? 

500: 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 



023772 

023774 
023776 
024000 
024002 
024006 
024012 
024016 
024022 
024030 
024034 
024042 
024044 
024050 
024054 
024060 
024062 
024064 
024066 
024072 
024074 
024100 
024102 
024106 
024110 



024114 
024114 
024116 
024120 
024122 
024126 
024130 
024134 
024140 
024144 
024146 
024150 



024152 
U24156 



024160 
024164 



024166 
024172 



1 7nsifi 






1 70904 












ninin? 

U 1 U 1 Uc 






0AP70? 

\J\JC I vc 


000002 




0109^7 


001240 






000010 

WW 1 V 




010577 


001244 






024304 


001242 


010437 


001 250 


00^252 


016137 


000034 

WW^~ 


010100 






062700 


000012 




vie* vC 


024304 




012703 


000004 

WW w^ 




022022 






001014 






077303 






026104 


000034 




001032 






005761 


000034 




100003 






026105 


000040 




001037 






000161 


000050 





011105 
006305 
006305 
062705 
010100 
062700 
012702 
012703 
022022 
001003 
077303 



024234 

000022 
024304 
000004 



000161 000042 



000115 



026105 000036 
001002 



000161 000046 
011102 



92S: 



93$: 



94$: 

;THE 
.SEE 
100$ 



TSTD 

STFPS 
STST 
NOV 
ADD 

nov 

ADD 
MOV 
MOV 
HOV 
MOV 
MOV 
ADD 
MOV 
MOV 
CMP 
BNE 
SOB 
CMP 
BNE 
TST 
BPL 
CMP 
BNE 
JMP 



(RO) 



R4 
R5 

R1.R2 

•2.R2 , 

R2-$TMP3 

*l6.R2 

R2.$TMP5 

#1200$,$TMP4 

R4.$TM«>7 

34(R1).$THP10 

RI.RO 

#12.R0 

#1260$. R2 

#4.R3 

(R0)*.(R2)* 

100$ 

R3.93$ 

34(R1),R4 

105$ 

34 (R1) 

94$ 

40(R1),R5 
110$ 

50(R1) 



;GET THE FPS. 
;CET THE FEC. 



.-WAS THE RESULT CORRECT' 



.-BRANCH IF INCORRECT. 

;WAS THE FPS CORRECT? 
.-BRANCH IF INCORRECT. 

;IF THE EXPECTED FPS WAS NEGATIVE CHECK THE FEC 

.-WAS THE FEC CORRECT. 
.-BRANCH IF INCORRECT. 
.-RETURN. 



RESULT WAS INCORRECT BUT WAS THIS FAILURE ANTICIPATED? 
IF THE RESULT WAS ANTICIPATED: 



101$: 



MOV 
ASL 
ASL 
ADD 
MOV 
ADD 
MOV 
MOV 
CMP 
BNE 
SOB 



(RD.RS 

R5 

R5 

#1220$,R5 

R1.R0 

#2^.R0 

«1200t,R2 

#4.R3 

(R0)*.(R2)* 

102$ 

R3.101$ 



.-BRANCH IF NOT ANTICIPATED. 



;THE 



;THE 
102$ 

;THE 
105$ 



.-THE 



.THE 
106$ 



ERROR WAS ANTICIPATED SO RETURN. 
JMP 42(R1) 

ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 

JMP (R5) ;60 TO THE PROPER ERROR CALL. 



FPS WAS INCORRECT. 
CMP 36(R1).R5 
BNE 106$ 



.WAS THIS ERROR ANTICIPATED? 
.-BRANCH IF NOT ANTICIPATED. 



FPS ERROR WAS ANTICIPATED SO RETURN. 
JMP 46(R1) 

FPS FAILURE WAS NOT ANTICIPATED SO REPORT IT MERE. 
MOV (R1).R2 



CX.FPCOO FPIIF FLTG PNT 
TEST « 44 - NEGO. A8S0 



PRT 
AND 



C 

TSTD 



MACRO 
TEST 
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5015 
5016 



024174 
024176 

5017 024200 

5018 024204 
5019 

5020 

5021 024206 

5022 024214 

5023 024220 

5024 024222 

5025 024224 

5026 024226 

5027 024232 
5028 

5029 

5030 024234 

5031 024236 

5032 024240 

5033 024242 
024244 
024246 



5034 
5035 
5036 
5037 

5038 024252 

5039 024254 

5040 024256 

504 1 024260 

5042 024262 

5043 024264 
5044 

5045 

5046 024266 

5047 024270 

5048 024272 

5049 024274 

5050 024276 

5051 024300 
5052 

5053 024302 

5054 024304 
5055 

5056 024316 
024316 



006302 
006302 
062702 
000112 



016137 
010537 
011102 
006302 
006302 
062702 
000112 



024252 



000040 
001254 



024266 



001256 llOS 



ASL 
ASL 
ADD 
J«P 

REPORT THAT 



R2 
R2 

#12301. R2 

(R2) 



;G0 TO THE PROPER ERROR CALL. 



MOV 
MOV 

ASL 
ASL 
ADD 
JMP 



THE FEC UAS INCORRECT 
40(R1),$THP12 
R5,$TMP11 
(R1).R2 
R2 
R2 

#1240$, R2 



(R2) 



;G0 TO THE PROPER ERROR CALL. 



104165 
000403 
104166 
000401 
104167 

000161 OOOOSO 



104170 
000774 
104171 
000772 
104172 
000770 



104173 
000766 
104174 
000764 
104175 
000762 



U7777 



104412 



.THESE ARE THE ERROR CALLS FOR EACH INDIVIDUAL INSTRUCTION AND CONDITION 



1220$: 



1250$: 



ERROR 
BR 

ERROR 
BR 

ERROR 



;FPS INCORRECT: 
1230$: ERROR 
BR 

ERROR 
BR 

ERROR 
BR 

;FEC INCORRECT: 
1240$: ERROR 
BR 

ERROR 
BR 

ERROR 
BR 



^77777 \77777 1200$; 

290$: 



.WORD 
.yORD 



RSETUP 



♦ 165 
1250$ 

♦ 166 
1250$ 

♦ 167 
50(R1) 



♦ 170 

1250$ 

♦171 

1250$ 

♦172 

1250$ 



♦173 

1250$ 

♦174 

1250$ 

♦ 175 

1250$ 

-1 



NEGD BAD DATA 
A8SD BAD DATA 
TSTD BAD DATA 



NEGD FPSX 
A8SD FPSX 
TSTD FPSX 

NEGD FECX 
ABSD FECX 
TSTD FECX 



•1. '1.-1, -1.-1 



GO INITIALIZE THE FPS AND STACK; AND 
SEP IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTyARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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SEQUENCE 113 



S063 



SOURCE NODES, NODE 1 (FL-0), TEST 



SBTTL TEST « 45 - SOURCE NODES, NODE 1 (fL«0), TEST 

iTEST 45 

* THIS IS A TEST OF SOURCE NODE 1 

• USING THE LDFPS INSTR 







000004 

WWW"! 






5064 


024322 


012737 


024330 


001110 


5065 


024330 


012700 


024406 




5066 


024334 


012710 


147517 




5067 


024340 


012737 


147517 


001240 


5068 


024346 


012737 


024362 


001236 


5069 


024354 


012737 


024446 


000004 


5070 


024362 


170110 






5071 










5072 


024364 


1 70205 






5073 










5074 


024366 


020027 


024406 




5075 


024372 


001 007 






5076 


024374 


022705 


147517 




5077 


024400 


001013 






5078 


024402 


000436 






5079 










5080 










5081 


024404 


M7777 






5082 


024406 


147517 






5083 


024410 


^77777 






5084 










5085 
5086 


024412 


012737 


024406 


001240 


5087 


024420 


010037 


001242 




5088 


024424 


104225 






5089 


024426 


000424 






5090 










5091 










5092 


024430 


012737 


147517 


901240 


5093 


024436 


010537 


001242 




5094 


024442 


104226 






5095 


024444 


000415 






5096 










5097 










5098 










5099 










5100 


024446 








5101 


024446 


011602 






5102 


024450 


020227 


024364 




5103 


024454 


001405 






5104 


024456 


020227 


024366 




5105 


024462 


001402 






5106 


024464 


000137 


051774 




5107 


024470 


022626 






5108 


024472 


010237 


001236 




5109 


024476 


104227 






5110 










5111 


024500 









TST45; 
200$: 

220S: 



SCOPE 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

LDFPS 



f200S.SLPERR 

«210S,R0 

#147517, (RO) 

#147517, STNP3 

#220S,STNP2 

«230S,ERRVECT 

(RO) 



STFPS R5 



CNP 
BNE 
CNP 
BNE 
BR 



R0.#210$ 
240S 

#147517. R5 

250S 

260$ 



SET UP THE LOOP ON ERROR ADDRESS. 
SET UP TEST DATA IN BUFFER. 

SAVE DATA IN CASE OF ERROR. 

SET UP FOR TRAPS TO 4. 
TEST INSTRUCTION. 

GET FPS 

IS RO CORRECT? 
BR IF NOT. 
IS FPS CORRECT? 
BR IF NOT. 



;DPN002 



.TEST BUFFER AND DATA: 
-1 

210$: 147517 
-1 

:REP0fiT RO INCORRECT. 
^40$: NOV #210S,$TNP3 

NOV R0.SrNP4 

ERROR ^225 

BR 260S 

■REPORT FPS INCORRECT. 

^50$: NOV #147517,$TNP3 

NOV R5.$TNP4 

ERROR *2i6 

BR 260$ 



:R0 BAD BIT FSRC FAILED 



.REPORT -PS INCORRECT. 



TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 

.FAILURE. OTHERyiSE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 

?30$: 

NOV (SP)-R2 
CNP R2.#220f*2 
BEQ IS 
CNP R2,#220S«4 
BEQ 1$ 
JNP CPSPUR 
1$: CNP (SP)*,(SP)* 
NOV R2.$TNP2 

ERROR *2i7 .ODD ADRES 

260$: 



K 9 

CUFPCDO FP11F FLTG PNT PRT C HACRO n^^^l 30-OCT-81 11:15 PAGE 49-1 
TEST # 45 - SOURCE HOOES. HOOE 1 <FL=0). TEST 

024500 104412 RSETUP 



GO INITIALIZE THE PPS AND STACK: AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO fPllF FLTG PNT PRT C HACRO H1113 30-OCT-81 11:15 PACE 50 
TEST * 46 - SOURCE PWOES. PWOE 2 (FL=0). TEST 



Sf OUEMCE 1 ^ 5 



5112 



.S8TTL TEST # 46 - SOURCE HOOES. NODE 2 (FLsQ). TEST 
•iTEST 46 SOURCE PWOES. «ODE 2 (H=0). TEST 



9 



THIS IS A TIST OF SOURCE MODE 2 
USING THE LDFPS INSTR 





AAAAA/ 






CI 1 ^ A^/ CAy 


A1 0777 

01 Df 


A5/ C 1 5 


UUi I ly 




A 1 5 7nA 


A5/.C7A 






rt1 571 A 


1/.C51 5 




Cll/L AO/ COO 


A1 5777 


1 ^ C 51 5 
1 h3£ I C 


fiAi 5/.n 

UU 1 c'(U 


C 1 1 7 AO/. C7A 


A1 5777 


A5/ C/./. 
Uc*» 3HH 


AA1 57* 
\J\} 1 C30 


Clio AO/C 


A1 5777 
Ul C' if 




UUUUUh 


Clio 










1 7ni Jf\ 

1 r U 1 cU 






C1 51 

3 1 C 1 








3 1 cc Ue*5"»o 








CI 57 

3 1 CD 








CI 5Z. rt5z.ccn 

3 1 CH UcH3 3U 


n5AA57 


Uc"»5f c 




C15C rt5ACC^ 


Afii nn7 






C15<> n5Z,CC<> 
3 1 CO Uc«i 3 30 




1 ••3c It 




<:i57 n?£';^^? 

3 1 c ' UcH 30c 


AA1 01 7 
V/v 1 U 1 3 






CI 5a ML^tU, 
3 1 CO Uc^JOh 


UUUh 30 






CI 5Q 
3 1 CT 








CI Trt 

3 I jU 








CI 71 








C175 n5^CAA 
3 1 JC Uc"»300 


1 77777 

\ 1 1 1 1 1 






5133 024570 


1 77777 
\ f f i f f 






5134 024572 


177777 

\ f t f 1 f 






3 1 53 








3 1 yo 








CI T7 

5 1 jf 








3 1 30 \JC'*J' 


y 1 C ' 3» 


0P4S7? 


001 5^0 

WW 1 CHv 


3 1 3T Uc**Owc 


nioflX7 

U 1 UU 3' 


V/W It He 




JIH\J UcHOUO 


1 w"»c 3w 






CI/.! n5^A10 


Uvw*»c"» 






3 1 *»£ 








3 1 •» 3 










W 1 C ' J' 


14SP1? 

1 "t 3C 1 C 


001 P40 

WW 1 C'»W 


3 1 3 Uc*>Oc w 


oinsx7 

U I \JjJf 






5146 024624 


104231 






5147 024626 

5U8 

5149 


000415 


















5150 








5151 








5152 024630 








5153 024630 


011602 






5154 024632 


020227 


024546 




5155 024636 


001405 






5156 024640 


020227 


024550 




5157 024644 


001402 
000137 






5158 024646 


051774 




5t59 024652 


022626 






5^6C 024654 


010237 


001236 





TST46: 
200S: 



220S: 



SCOPE 




MOV 


#200$.SLPERR 


NOV 


#210$ .RO 


MOV 


#14521?, (ROj 


MOV 


#145212. $TMP3 


MOV 


#220S.$TMP2 


MOV 


#230S,ERRVECT 


LDFPS 


(R0)« 


STFPS 


R5 


CMP 


R0-#210$*2 


BNE 


240$ 


CMP 


#145212. R5 


BNE 


250S 


BR 


260S 



SET UP THE LOOP ON ERROR ADDRESS. 
SET UP TEST DATA IN BUFFER. 

SAVE DATA IN CASE OF ERROR. 

SET UP FOR TRAPS TO 4. 

TEST INSTRUCTION. 

GET FPS 

IS RO CORRECT? 
8R IF NOT. 
IS THE FPS CORRECT? 
8R IF NOT. 



;DPM002 



.TEST BUFFER AND DATA: 
-1 

21 OS: .yORD -1 
-1 



: REPORT RO INCORRECT. 

540$: MOV #210f*2.$TMP3 

MOV R0.STMP4 

ERROR ♦230 

BR 260S 

•REPORT FPS INCORRECT. 

^50$: MOV #145212.STMP3 

MOV R5.$TMP4 

ERROR ♦231 

BR 260S 



;R0 BAD BUT FSRC FAILED 



.REPORT FP5 INCORRECT. 



TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 

.FAILURE. OTHERWISE 60 TO THE SPURIOUS TRAP TO 4 HANDLING. 

530S: 

MOV (SP>.R2 
CMP R2.#520$*2 
BEQ IS 
CMP R2.#220S*4 
BEQ IS 
JMP CPSPUR 
IS: CMP (SP)*,(SP)* 
MOV R2.STMP2 



n 9 

CKfPCDO FPIIF fLTG PNT PRT C (UCR0PI1113 30-OCT-81 11:15 PAG£ 50-1 

TEST # 46 - SOOOCE «OOES. WDE 2 (FL=0), TEST 

5161 024660 104232 ERROR ^232 
5162 

5165 024662 260$: ^^^^.^ 

024662 104412 RSETUP 



;0DD ADRES 

;8UT FDSTX IN ST 771 

;G0 INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG PNT PRT C HACRO mi13 30-OCT-81 11:15 
TEST • 47 - SOURCE «O0ES. HOOE 4 (FL=0). TEST 



N 

PAGE 51 



SCOUCNCf 1 ' ! 



5164 



5174 
5175 



024664 

5165 024666 

5166 024674 

5167 024700 
516« 024706 

5169 024714 

5170 024722 

5171 024730 

5172 024732 

5173 024734 
~ 024740 

5176 024746 

5177 024750 
5178 

5179 024752 

5180 024762 

5181 024764 
5182 

5183 024774 
025002 
025006 
5186 025010 
" 87 025012 
88 025020 

5189 025024 

5190 025026 

5191 025030 

5192 025032 

5193 025036 

5194 025040 

5195 025044 

5196 025046 

5197 025052 

5198 025054 

5199 025060 

5200 025062 
025062 



5184 
5185 



000004 
012737 
012700 
012760 
012737 
012737 
012737 
170140 
1 70205 
020027 
001015 
022705 
001021 
000444 

Mini 

MTlll 

Mini 

012737 
010037 
104233 
000424 
012737 
010537 
104234 
000415 
011602 
020221 
001405 
020221 
00140? 
000137 
022626 
010237 
104235 

104412 



024674 
024764 
105252 
105252 
024730 
025030 



024762 
105252 

Mini 
Mini 

024762 
001242 



105252 
001242 



024732 
024734 
051774 
001236 



.S8TTL TEST # 47 - SOURCE HODES. NODE 4 (FL=0). TEST 
SOURCE WOOES. «0Df 4 (FL=0). TEST 



.••TEST 47 

)• THIS IS A TEST OF SOURCE nODE 4 
USING THE LDFPS INSTR 

• * 



001110 

177776 
001240 
001236 
000004 



TST47: 
200S: 



220S: 



Mini 
Mini 

001240 



210S: 
240S: 



001240 250S: 
230$: 

1$: 
260$: 



SCOPE 

NOV f200S.SLPERR 

NOV #210S*2,R0 

NOV #105252. -2(R0) 

NOV #1 05252. $TNP3 

NOV #220S.STNP2 

NOV #230S.ERRVEC 

LDFPS -(RO) 

STFPS R5 

CNP R0.#210$ 

BNE 240$ 

CNP #105252. RS 

BNE 250$ 

BR 260$ 

-1.-1.-1.-1 
-1 

-1.-1.-1.-1 



;SET UP THE LOOP ON ERROR ADDRESS. 
.-SET UP THE TEST DATA BUFFER. 

.-SAVE DATA IN CASE OF ERROR. 



; DPN002 



NOV 

NOV 

ERROR 

BR 

NOV 

NOV 

ERROR 

BR 

NOV 

CNP 

BEQ 

CNP 

BEQ 

JNP 

CNP 

NOV 

ERROR 

RSETUP 



#210$.$TNP3 
R0.$TNP4 

♦2^3 
260$ 

#1 05252. $TNP3 
R5.$TNP4 

♦2^4 

260$ 

(SP)-R2 

R2.#J20$*2 

1$ 

R2.#220$K 
1$ 

CPSPUR 
(SP)*.(SP)* 
R2.$TNP2 
♦2^5 



:R0 BAD BUT FSRC FAILED 
.•REPORT FPS INCORRECT. 



;DDD ADRfcS 

:60 INITIALIZE THE FPS AND STACK; AND 
.SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SUITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



CUfPCDO FPIIF FLTG PWT PftT C HACRO HlllJ 30-OCT-81 11:15 
TEST # 50 - SCX/RCE «OOES. BODE 3 (fL=0), TEST 
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SEQUENCE 118 



5201 



025064 

5202 025066 

5203 025074 
b204 025100 

5205 025104 

5206 025112 

5207 025120 

5208 025126 

5209 025134 

5210 025136 

5211 025140 

5212 025144 

5213 025146 

5214 025152 

5215 025154 
5216 

5217 
5218 

5219 025156 

5220 025166 

5221 025170 

5222 0251/6 
5223 

5224 
5225 

5226 025210 

5227 025216 

5228 025222 

5229 025224 
5230 

5231 

5232 025226 

5233 025234 

5234 025240 

5235 025242 
5236 

5237 
5238 

5239 025244 

5240 025246 

5241 025252 

5242 025254 

5243 025260 

5244 025262 

5245 025266 

5246 025270 

5247 025274 

5248 025276 
025276 



.s8ttl test # 50 - source modes, hode 3 (fl=0). test 
West so source modes, mode 3 (fl=o>. test 



000004 
012737 
012700 
012710 
012737 
012737 
012737 
012737 
170130 
170205 
020027 
001021 
022705 
001025 
000450 



mill 

}77777 
025166 



THIS IS A TEST Of SOURCE MODE 3 
USING THE LOFPS INSTR 



025074 
025176 
025166 
103456 
103456 
025134 
025244 



025200 
103456 



001110 



025166 
001240 
001236 
000004 



TST50: 
200S: 



230S: 



y77777 
M7777 



012737 025200 
010037 001242 
104236 
000424 



012737 103456 
01C537 001242 
104237 
C00415 



CI 1602 
020227 
001405 
020227 
001402 
000137 
022626 
010237 
104240 

104412 



025136 
025140 
051774 
001236 



SCOPE 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

LDFPS 

STFPS 

CMP 

BNE 

CMP 

BNE 

BR 



:SET UP THE LOOP ON ERROR ADDRESS. 



#200$.$LPERR 
#210S,R0 
#220$. (RO) 
#103456,220$ 
#1 03456, $TMP3 
#230$,$TMP2 

#240$.ERRVECT ;SET UP FOR TRAPS TO 4. 

TEST INSTRUCTION. 

;GET THE FPS. 
:IS RO CORRECT? 
;BR 



;DPM002 



a(RO}^ 
R5 

R0.#210$+2 
256$ 

#103456. R5 
260$ 
270$ 



IF NOT. 
IS THE FPS CORRECT? 
BR IF NOT. 



y77777 ^77777 



\77777 
\77777 



001240 ^50$ 



.TEST BUFFER AND DATA: 
-1.-1.-1.-1 

220$: -1 

-1.-1.-1 

210$: 226$.-l.-1.-1. 



REPORT RO INCORRECT, 



MOV #210$*2.$TMP3 

MOV R0.$TMP4 

ERROR +256 

BR 270$ 



:R0 BAD BUT FSRC FAILED 



;REPORT FPS INCORRECT. 
001240 ^60$: NOV #103456, $TMP3 .-REPORT FPS INCORRECT. 
NOV R5.$TNP4 
ERROR +237 
BP 270$ 

•TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
, EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
rFAILURE. OTHERWISE 60 TO THE SPURIOUS TRAP TO 4 HANDLING. 



H0$: 



1$: 



270f : 



MOV 
CMP 
BEQ 
CMP 
BEQ 
JMP 
CMP 
MOV 
ERROR 

RSETUP 



(SP)-R2 
R2,#530$*2 
1$ 

R2,#230$*4 
1$ 

CPSPUR 
(SP)*.(SP)* 
R2,$TMP2 
♦240 



:DDD ADRES 

;G0 INITIALIZE THE FPS AND STACK; AND 



CKFPCDO FPIIF FLTG PNT PRT C MACRO M1113 30-0CT-81 11:15 
TEST # 50 - SOURCE MODES. MODE 3 (FL=0). TEST 
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SEQUENCE 



SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER ^YPEO CONTROL G?). 



CKFPCDO FP11F fLTG PNT PRT C HACRO H1113_30-OCT-81 11:15 
TEST # 51 - SOURCE MODES. NODE 5 (FL=0), TEST 
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SEQUENCE 12: 



5249 



025300 

5250 025302 

5251 025310 

5252 0253U 

5253 025322 

5254 025330 

5255 025336 

5256 02 5344 

5257 025352 

5258 025354 

5259 025356 

5260 025362 

5261 025364 

5262 025370 

5263 025372 
5264 

5265 
5266 

5267 025374 

5268 025376 

5269 025400 

5270 025406 
5271 

5272 
5273 

5274 025416 

5275 025424 

5276 025430 

5277 025432 
5278 

5279 

5280 025434 

5281 025442 

5282 025446 

5283 025450 
5284 

5285 
5286 

5287 025452 

5288 025454 

5289 025460 

5290 025462 

5291 025466 

5292 025470 

5293 025474 

5294 025476 

5295 025502 

5296 025504 
025504 



000004 
012737 
012700 
012760 
012737 
012737 
012737 
012737 
170150 
170205 
020027 
001015 
022705 
001021 
000444 



025310 
025410 
025376 
045412 
045412 
025352 
025452 



025406 
045412 



001110 

177776 
025376 
001240 
001236 
000004 



\77777 
}77777 

^77777 \77777 ^77777 
025376 y77777 y77777 



012737 025406 001240 
010037 001242 
104241 
000424 



012737 045412 001240 
010537 001242 
104242 
000415 



011602 

^1^217 025354 
001405 

020227 025356 
001402 

000137 051774 
022626 

010237 001236 
104243 

104412 



.S8TTL TEST # 51 - SOURCE MODES, MODE 5 (^'-=0) .^^EST 
•iTEsf*?!***** SOURCE MODES. MODE 5 (FL=0). TEST 



• * 
;• 



THIS IS A TEST OF SOURCE MODE 5 
USING THE LDFPS INSTR 



TST51 
200S: 



230S: 



SCOPE 

MOV #200S.$LPERR 

MOV #210$*2.R0 

MOV #220$. -2 (RO) 

MOV #45412.220S 

MOV #45412.$TMP3 

MOV #230$.$TMP2 

MOV #240$,ERRVECT 

LDFPS a-(RO) 

R5 

CMP R0.*210$ 

BNE 256$ , ^ 

CMP #45412. R5 

BNE 260$ 

BR 270$ 



;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE TEST DATA BUFFER. 



.SAVE DATA IN CASE OF ERROR. 

;SET UP FOR TRAPS TO 4. 
TEST INSTRUCTION. 
GET THE FPS. 
IS RO CORRECT? 
BR IF NOT. 
IS THE FPS CORRECT? 
BR IF NOT. 



;DPM002 



.-TEST BUFFER AND DATA: 
-1 

22C$: -1 

-1.-1.-1 
210$: 226$.-1.-1,-l 



;REP0RT RO INCORRECT. 
J50$: MOV f210$.$TMP3 

MOV R0,$THP4 

ERROR ^241 

BR 270$ 



;R0 BAD BUT FSRC FAILED 



.•REPORT FPS INCORRECT. 



; REPORT FPS INCORRECT. 
260$: MOV f45412.$TMP3 

MOV R5,$TMP4 

ERROR ^242 

BR 270$ 

TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 



^40$: 



1$: 



270$: 



MOV 
CMP 
BEO 
CMP 
BEQ 
JMP 
CMP 
MOV 
ERROR 

RSETUP 



(SP),R2 
R2.#J30$*2 
1$ 

R2.#230$*4 
1$ 

CPSPUR 
(SP)».(SP)* 
R2.$TMP2 
♦243 



.-ODD ADRES 

;G0 INITIALIZE THE FPS AND STACK; AND 



CKFPCOO FP11F FLTG PNT PRT C HACRO M1113 30-0CT-81 11:15 
TEST # 51 - SOURCE MODES. NODE 5 (FL^O). TEST 



PAGE 



E 10 
53-1 



SEQUENCE 



SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CRFPCOO fPIIF FLTG F>NT PRT C HACRO H1113 30-0CT-81 11:15 
TEST • 52 - SOURCE HOOES, HOOE 6 (FL=0), TEST 
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SEQUENCE 12^ 



5297 



025506 

5298 

529Q 025510 

5300 025516 

5301 025522 

5302 025530 

5303 025536 

5304 025544 

5305 025546 

5306 025554 

5307 025560 

5308 025562 

5309 025564 

5310 025566 

5311 025572 

5312 025574 

5313 025600 

5314 025602 
5315 

5316 
5317 

5318 025604 

5319 025606 

5320 025616 
5321 

5322 

5323 025620 

5324 025626 

5325 025632 
5526 025634 
5327 

5328 

5329 025636 

5330 025644 

5331 025650 

5332 025652 
5333 

5334 

5335 025654 

5336 025662 

5337 025670 

5338 025672 
5339 

5340 
5341 

5342 025674 

5343 025676 

5344 025702 

5345 025704 



000004 

012767 
012700 
012767 
012767 
012767 
005001 
012767 
170160 
170204 
005701 
001033 
020027 
001012 
022704 
001016 
000451 



}77777 
y77777 
\77777 



012767 
010067 
104244 
000434 



012767 
010467 
104245 
000425 



012767 
012767 
104246 
000415 



011602 
020227 
001405 
020227 



025516 153372 
020405 

046543 000056 

046543 153502 

025554 153472 

025674 152230 
005201 



020405 
046543 



y77777 \77777 



020405 153412 
153410 



046543 153374 
153372 



025560 153356 
025556 153352 



S8TTL 



TEST # 52 - SOURCE BODES. NODE 6 (FL=0). TEST 
SOURCE MODES, MODE 6 (FL=0). TEST 



•TEST 52 

* THIS IS A TEST OF SOURCE MODE 6 

• USING THE LDFPS INSTR 
t 



rST52: 
200$: 

220S: 



SCOPE 

.DSABLE 

HOV 

nov 

NOV 

nov 

NOV 

CLR 

NOV 

LDFPS 

STFPS 

TST 

BNE 

CNP 

BNE 

CNP 

BNE 

BR 



ANA 

4r200$,SLPERR 
#2101-5201 -RO 
#46543,210$ 
#46543. $TNP3 
#220S.STNP2 
R1 

#f''>0$.ERRVECT 

5201(R0) 

R4 

R1 

240$ 

R0.#210$-5201 
256$ 

#46543. R4 

260$ 

270$ 



DISABLE NODE 6 TO NODE 3 CONVERSIONS 
SET UP THE LOOP ON ERROR ADDRESS. 
SET UP THE TEST DATA BUFFER. 

;SAVE DATA IN CASE OF ERROR. 



;SET UP FOR TRAPS TO 4. 

.'TEST INSTRUCTION. 
GET THE FPS. 

WAS PC CORRECT AFTER EXECUTION? 

BR IF NOT. 

IS RO CORRECT? 

BR IF NOT. 

IS THE FPS CORRECT? 

BR IF NOT. 



;DPN002 



.TEST BUFFER AND DATA: 
-1 

210$: -1.-1.-1.-1 
-1 

: REPORT RO INCORRECT. 
550$: NOV #210$-5201.$TNP3 
NOV R0.$TNP4 



ERROR 
BR 



♦244 
270$ 



:R0 BAD BUT FSRC FAILED 



.•REPORT FPS INCORRECT. 



025556 
025560 



•REPORT FPS INCORRECT. 
^60$: NOV #46543. $TNP3 

NOV R4,$TNP4 

ERROR ^245 

BR 270$ 

•REPORT PC INCORRECT AFTER INSTRUCTION. 
^40$: NOV #220$>4.$TNP3 
NOV #220$*2.$TNP4 
ERROR +246 ;PC X 

BR 270$ 
TRAP HERE THROUGH VECTOR FOUR. SEE IF 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. 
.FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO s 
230$: NOV (SP).R2 

CNP R2.#220$*2 

BEQ 1$ 

CNP R2.#220t«^4 



THE TRAP -MS DURING 

F SO REPORT 
HANDLING. 



CKFPCDO ►P11F FLTG PNT PRT C PWCRO HlUB 30-OCT-81 11:15 
TEST » 52 - SOURCE NODES. W)DE 6 (FL=0). T«^ST 



PAGE 
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54-1 



SEQUENCE 123 



53A6 025710 
53A7 025712 
53A8 025716 
53A9 025720 
5350 02572A 
025726 
025726 



5351 



5552 



00U02 
000167 
022626 
010267 
104247 

104412 



024056 
153312 



IS: 

270$: 



BEQ 
JNP 
CHP 
MOV 
ERROR 

RSETUP 



IS 

CPSPUR 
(SP)»,(SP)» 
R2.STHP2 
♦247 



:0DD AORES 



.ENA8L AMA 



;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.THE USER TYPED CONTROL G?). 
; RE ENABLE MODE 6 TO MODE 7 COMVERSJONS 



CKFPCOO FP11F FLTG PNT PRT C MACRO «1113 30-0CT-81 11:15 
TEST f 53 - SOURCE NODES. NODE 7 (FL=0). TEST 
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SEQUENCE 12^ 



5353 



025730 

5354 025732 

5355 025740 

5356 025744 

5357 025752 

5358 025760 

5359 025766 

5360 025774 

5361 025776 

5362 026004 

5363 026010 

5364 026012 

5365 026014 

5366 026016 

5367 026022 

5368 026024 

5369 026030 

5370 026032 
5371 

5372 
5373 

5374 026034 

5375 026036 

5376 026046 
5377 

5378 

5379 026056 

5380 026064 

5381 026070 
5582 026072 
5383 

5384 

5385 026074 

5386 026102 

5387 026106 

5388 026110 
5389 

5390 

5391 026112 

5392 026120 

5393 026126 

5394 026130 
5395 

5396 
5397 

5398 026132 

5399 026134 

5400 026140 

5401 026142 



000004 
012737 
012700 
012760 
012737 
012737 
012737 
005001 
012737 
170170 
170204 
005701 
001036 
020027 
001015 
022704 
001021 
000454 



y77777 
y77777 
\77777 



012737 
010037 
104250 
000434 



012737 
010437 
104251 
000425 



012737 
012737 
104252 
000415 



S8TTL TEST # 53 - SOURCE MODES. MODE 7 (FL=0), TEST 
iTEST*53 SOURCE BOOES, MODE 7 (FL=0). TEST 

* THIS IS A TEST OF SOURCE NODE 7 

* USING THE LDFPS INSTR 







• • 

tST53: 


SCOPE 


025740 


001110 




MOV 


020645 


200$: 


MOV 


026036 


005201 




MOV 


004547 


026036 




MOV 


004547 


001240 




MOV 


026004 


001236 




MOV 

CLR 


026132 


000004 


230S: 


MOV 


005201 




LOFPS 






STFPS 

TST 

BNE 


020645 






CMP 






BNE 


004547 






CMP 
BNE 
BR 



#200$.$LPERR 
#210$-5201,RO 
#2201.5201 (RO) 
#4547.220$ 
#4547,$TMP3 
#230$.$TMP2 
R1 

#240$,ERRVECT ;SET 
35201 (RO) 

R4 ;CET 
R1 :UAS 
250$ :6R 
R0.#210$-5201 ;IS 
260$ :8R 
#4547, R4 :IS 
270$ :8R 
280$ 



.SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE TEST DATA BUFFER. 



;DP«002 



.SAVE DATA IN CASE OF ERROR. 



UP FOR TRAPS TO 4. 

.TEST INSTRUCTION. 
THE FPS. 

PC CORRECT AFTER EXECUTION? 
IF NOT. 
RO CORRECT? 
IF NOT. 

THE FPS CORRECT? 
IF NOT. 



\77777 }77777 
^77777 W7777 



020645 001240 
001242 



004547 001240 
001242 



026010 001240 
026006 001242 



;R0 BAD BUT FSRC FAILED 



;REPORT FPS INCORRECT. 



011602 

020227 026006 
001405 

020227 026010 



.TEST BUFFER AND DATA: 

220$: .WORD -1.-1.-1.-1 
210$: .WORD -1,-1.-1.-1 

;REPORT RO INCORRECT. 
^60$: MOV #210$-5201.$THP3 

MOV R0.$TMP4 

ERROR *250 

BR 280$ 

;REPORT FPS INCORRECT. 
^70$: MOV #4547.$TMP3 

MOV R4.$TMP4 

ERROR ^2>1 

BR 280$ 

:REPORT PC INCORRECT AFTER INSTRUCYlON. 
^50$: MOV #230$*4.$TMP3 

MOV #230$*2.$TMP4 

ERROR +252 ;PC X 

BR 280$ 

;TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
.EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
:FAILURE. OTHERWISE GO TO THE SPURIOUS TRAT rn 4 HANDLING. 
240$: MOV (SP).R2 

CMP R2.»ilO%*2 

BEO 1$ 

CMP R2.#230t*4 



CKfPCDO FPnf fLTG 
TEST # 53 - SOURCE 



PKT PRT C 
HOOES. MODE 



nACRO Ml 113 30-OCT 
7 (FL=0). TEST 



-81 11:15 PAGE 



5402 
5403 
5404 
5405 
5406 
5407 



5408 



026146 
026150 
026154 
0261 56 
026162 
026164 
026164 



001402 
000137 
022626 
010237 
104253 

104412 



051774 
001236 



IS: 

280$: 



I 10 
55-1 



BEQ 
JW> 
CHP 

nov 

ERROR 
RSETUP 



IS 

CPSPUR 
(SP)*. (SP)* 
R2.STHP2 
♦253 



SEQUENCE 125 



.tW^L AMA 



:DDD ADDRESS 

:G0 INITIALIZE THE FPS AND STACK: AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



CKfPCOO fPllF FLTG PNT PRT C PIACRO H1113 30-OCT-81 11:15 
TEST f 54 - SOURCE MOOES. HOOE 2 6R7 (FL=1). TEST 



PAGE 56 



J 10 
St 



SEQUENCE 126 



5415 



026166 

5416 026170 

5417 026176 

5418 026204 

5419 026212 

5420 026216 

5421 026220 
5422 

5423 026222 

5424 026224 

5425 026226 

5426 026<f30 

5427 026232 
5428 

5429 026234 

5430 026240 
5431 

5432 
5433 

5454 026242 

5435 026246 

5436 026252 

5437 026254 

5438 026256 

5439 026262 

5440 026270 

5441 026272 
5442 

5443 
5444 

5445 026274 

5446 026300 

5447 026302 
5448 

5449 026304 
026304 



000004 
012737 
012737 
012737 
012700 
170100 
005001 

177027 
005201 
005201 
005201 
005201 

020127 
001421 



012704 
162701 
006301 
160104 
010437 
012737 
104254 
000404 



011637 
022626 
104255 



104412 



S8TTL TEST f 54 - SOURCE BODES. NODE 2 6R7 (FL=1), TEST 
iTESr54* SOURCE HOOES. BODE 2 6R7 (FL=1). TEST 

• THIS IS A TEST OF THE LOCLD WITH 

* IIWEDIATE ADDRESSING MODE 
* 



026176 
026222 
026274 
000300 



001110 
001236 
000004 



TST54; 
200$: 



210S: 



000003 



0262. . 
000003 



001242 
026226 



001236 



SCOPE 




nuv 




MOV 


#210S,STMP2 


MOV 


#220$.ERRVECT 


MOV 


#300. RO 


LDFPS 


RO 


CLR 


R1 


LDCLO 


(R7)*,AC0 


5201 




5201 




5201 




5201 




CMP 


R1-ir3 


BEO 


236s 



U01240 



SET UP THE LOOP ON ERROR ADDRESS. 
SAVE DATA IN CASE OF ERROR. 
SET UP FOR TRAPS TO 4. 



.•TEST INSTRUCTION. 



.yAS PC CORRECT AFTER EXECUTION-* 
;8R IF YES. 



.REPORT PC INCORRECT AFTER INSTRUCTION. 
MOV «210S«^4.R4 
SUB #3.R1 
ASL Rl 
SUB R1.R4 
MOV R4.STMP4 
MOV #210f*4,fTHP3 
ERROR ♦254 
BR 230S 

TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 

^FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 

^20$: MOV (SP). fTMP2 
CMP (SP)*.(SP)* 

ERROR ^255 ;BAD CONSTANT ODD ADD 



;DPM002 



.BAD CONSTANT 



230$: 



RSETUP 



;G0 INITIALIZE THE FPS AND STACK; AND 
.SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.THE USER TYPED CONTROL G?). 



CKfPCDO FPIIf FLTC PNT PRT C »WCRO H1113 30-OCT-81 11:15 
TEST • 55 - SOURCE NODES. NODE 2 If I'M . TEST 



K 10 
PACE 57 



SEQUENCE 1?7 



5456 



026306 

5457 026310 

5458 026316 

5459 026324 

5460 026330 

5461 026332 

5462 026336 
5463 

5464 026340 

5465 026342 

5466 026346 

5467 026352 

5468 026354 

5469 026356 

5470 026362 
5471 

5472 026364 

5473 026370 

5474 026376 

5475 026400 
5476 

5477 026402 

5478 026406 
5479 

5480 

5481 026410 

5482 026414 

5483 026422 

5484 026424 
5485 

5486 

5487 026426 

5488 026436 
5489 

5490 026446 
026446 



000004 
012737 
013737 
012700 
170100 
012700 
177020 

1 70204 
012701 
012702 
170102 
1 7401 1 
020027 
001407 

010037 
012737 
^04256 
000422 

022704 
001417 



010437 
012737 
104257 
000410 



001234 
}77777 



104412 



0263^-^ 

0263. 

00030( 

026426 



026436 
000200 



026432 



001242 
026432 



000300 



001242 
000300 



067076 
m777 



S8TTL 



TEST # 55 - SOURCE NODES. NODE 2 (FL«1), TEST 
""""source PWDES. MODE 2 (fL«1). TEST 



•TEST 55 

• THIS IS A TEST OF THE LDCLD INSTR 

• WITH NODE 2. 



001110 
001236 



TST55: 
200S: 



210$: 



SCOPE 

NOV 

NOV 

fWV 

LDFPS 

NOV 

LDCLD 



«200S.SLPERR 
210$JtnP2 
«300.R0 
RO 

«220S.R0 
(RO)*.ACO 



:SET UP THE LOOP OM ERROR ADDRESS. 
.-SAVE DATA IN CASE OF ERROR. 



;SET UP THE TEST DATA BUFFER. 
.-TEST INSTRUCTION. 



;DPN002 



001240 



STFPS R4 

NOV #230S.R1 

NOV «200.R2 

LDFPS R2 

STD AC0,(R1) 

CNP R0.#220S*4 

BEO 246s 
.REPORT RO INCORRECT. 

NOV R0.STNP4 

NOV «220S^4,STNP3 

ERROR ^256 

BR 250$ 



;GET THE FPS. 
;6ET THE RESULT. 



:IS RO CORRECT? 



:8AD CONST 



240$: CNP #300. R4 ;IS THE FPS CORRECT? 
BEO 250$ 



001240 



054321 
}77777 



.REPORT FPS INCORRECT. 

NOV R4.$TNP4 
NOV #300.$TNP3 
ERROR ♦257 
BR 250$ 



.FPS X 



;TEST BUFFER AND DATA: 

^20$: .WORD 01234.67076.54321.012345 

230$: -1.-1.-1.-1 



250$: 



RSETUP 



;60 INITiALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.-THE USER TYPED CONTROL 6?). 



CKFPCDO FP11F FLTG PMT PRT C MACRO N1113 
TEST » 56 - LDCIF AND LDCLF TEST 
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10 



5497 



UcO*»5U 


wvvUU*» 
















rtl 37^7 


036460 


001 110 






037734 














nnnnnn 

UUvvUv 


ooooon 






nonnnn 


000000 






177777 


177777 






OOAOAO 

UwvVA/U 








C\C\C\t)t\L 
vvvwv** 








177777 

t f f f f f 






















1 w vcO^ 1 c 








0M5K 








J J \ c 








5513 












07657? 


001110 


0?A5?? 


0047^7 


077774 












SSI 7 0?A5?A 


000000 

vvwvvv 


177777 




SSI a o?AS^? 


000000 


000000 

WWW 




SS19 07<^SVi 


004177 


1 77400 

Iff 




SS?0 07654? 


000000 






SS71 076S44 


000004 






SS77 076S46 


177777 






S571 076550 


104262 






0P6SSP 


000401 






S575 076554 


104261 






5S26 076556 








S577 








5528 








S579 076556 


017737 


076564 


001110 


SS% 076564 








5531 026570 


000000 


000000 




5 552 026574 


000000 


000000 




5533 026600 


\77777 


}77777 




5534 026604 


000100 






5535 026606 


000104 






5536 026610 


000004 






5537 026612 


104260 






5538 026614 


000401 






5539 026616 


104263 






5540 026620 








5541 








5542 026620 


012737 


026626 


001110 


5543 026626 


004737 


0277 2^, 




5544 C26632 


040000 


000000 




5545 0?6636 


043600 


000000 





.s8ttl test t 56 - locif and ldclf test 
•West 56 ldcif and ldclf test 



:* this is a test of the ldcif and 

;• the ldclf instructions. 



TST56: 

.zero 

200S: 



1$ 
2$ 
3t 
4» 



5S: 



6S: 
.ZERO 



21 Of: 



lis 

12f 
13$ 
US 



15S: 



16S: 
.ZERO 



220$: 

21$: 

22$: 

23$: 

24$: 



25$: 



SCOPE 

OPERAND FL=0 

MOV #200$.$LPERR 

JSR PC. 1000$ 



.WORD 
.yORD 
.WORD 

0 
4 
-1 

ERROR 
BR 

ERROR 



0.0 
0.0 
-1.-1 



♦260 
6$ 

♦261 



OPERAND FL=0 

NOV #210$.$LPERR 
JSR PC. 1000$ 

.WORD 0.-1 

.WORD 0.0 

4177,177460 

0 

4 

-1 

ERROR ^262 

BR 16$ 

ERROR ^261 

OPERAND FL=1 



NOV 

JSR 

.WORD 

.WORD 

.WORD 

100 

104 

4 

ERROR 
BR 

ERROR 



#220$.$LPERR 

PC. 1000$ 

0.6 

0.0 

-1.-1 



26$: 
.OPERAND 

NOV 

230$: JSR 
31$: .WORD 
32$: .WORD 



♦260 

26$ 

♦263 



.SET UP THE LOOP ON ERROR ADDRESS. 
:G0 EXECUTE INSTRUCTION. 

;FSRC OPERAND. 
.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



.SET UP THE LOOP ON ERROR ADDRFSS 
:60 EXECUTE THE INSTRUCTION. 

;FSRC OPERAND. 
.EXPECTED RESULT. 
:ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
.FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
;(8UT FL) ST 
;277 TO 300 
;INT0 301 



.SET UP THE LOOP ON ERROR ADDRESS 
;G0 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTIO'^. 
;FPS AFTER EXECUTE 
.ANTICIPATED ERRONEOUS FPS. 
.REPORT RESULT INCORRECT. 



:FL WAS CLR'ED 



POSITIVE 

#230$.$LPERR 

PC.1060$ 

40600.0 

43600,0 



FL=0 

.SET UP THE LOOP ON ERROR ADDRESS 
;60 EXECUTE THE INSTRUCMON. 
:FSRC OPERAND. 
.EXPECTED RESULT. 



TES^ » 56 - lDCI* and LDCLF TEST 



HACRO 30-OCT-81 11:15 



N 10 
PAGE 58-1 



55C6 

55<.8 
55^.9 
55:>0 
5551 
5552 
5553 
555^. 
5555 
5556 
5557 

5558 
5559 
5560 
5561 
5562 
5563 
556A 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 



026642 
026646 
026650 
026652 
026654 
026656 
026660 
026662 

026662 
026670 
026674 
026700 
026704 
026710 
026712 
026714 
026716 
026720 
026722 
026724 



026724 
026732 
026736 
026742 
026746 
026752 
026754 
026756 
026760 
026762 
026764 
026766 



026766 
026774 
027000 
027004 
027010 
027014 
027016 
027020 
027022 
027024 
027026 
027030 



027030 
027036 
027042 
027046 
027052 



047600 
0000^7 

000000 

104264 
000401 
104261 



012737 
004737 
000001 
040200 
044200 
000017 
000000 
^77777 
104264 
000401 
104261 



012737 
004737 
000252 
042052 
046052 
000000 
000000 
}77777 
104264 
000401 
104261 



012737 
004737 
140000 
145600 
043600 
000007 
000010 
}77777 
104265 
000401 
104261 



012737 
004737 
\77m 
140200 
144000 



000000 



026670 
027724 
000000 
000000 
000000 



026732 
027724 
000000 
000000 
000000 



02b77(, 
02772^ 
000000 
000000 
000000 



027036 
027724 
000000 
000000 
000400 



oomo 



001110 



001110 



001110 



33$: 
34$: 



35$: 



.WORD 

17 

0 
-1 

ERROR 
BR 

ERROR 



36$: 
;0PERAND=1. 

nov 



47600.0 



♦264 

36$ 

♦261 



ANTJCJPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
;ST 107 BAD 

.CONSTANT 231 :nSD 

;215 



240$: 

41$: 

42$: 

43$: 

44$: 



45$: 



46$: 



JSR 
.WORD 
.WORD 
.WORD 

17 

0 

-1 

ERROR 
BR 

ERROR 



.■OPERAND: 

250$: 
51$: 
52$: 
53$: 
54$: 



55$: 



56$: 



NOV 
JSR 
.WORD 
.WORD 
.WORD 
0 
0 
-1 

ERROR 
BR 

ERROR 



FL=0 

#240$.$LPERR 
PC^1060$ 

46200.0 
44200.0 



♦264 

46$ 

♦261 



PATTERN fL=0 

«250$.$LPERR 

PC. 1000$ 

25^,0 

420S2.0 

46052,0 



♦264 

56$ 

♦261 



.•OPERANO=-40000 FL=0 



260$: 

61$: 

62$: 

63$: 

64$: 



65$: 



66$: 



NOV 
JSR 
.WORD 
.WORD 
.WORD 
7 

10 
-1 

ERROR 
BR 

ERROR 



;0PERAND=-1 
NOV 



270$: 
71$: 
72$: 
73$: 



JSR 
.WORD 
.WORD 
.WORn 



#260$.$LPtRR 
PC. 1000$ 
-46000.0 
U3600.0 
43600.6 



♦265 

66$ 

♦261 



FL-0 

#270$.$LPERR 

PC. 1060$ 

-1.0 

146200.0 

144000.400 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS B€FORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BCFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



;SET UP THE LOOP ON ERROR ADDRESS. 
.-GO EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
(SET SIGN) ST 146 

.REPORT FPS INCORRECT. 



.SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
.FSRC OPERAND. 

.•EXPECTED RESULT. 

.•ANTICIPATED ERRONEOUS RESULT. 



;DPN002 



;DPN002 



;0PN002 



;DPN002 



CUFPCOO FP11F FLTG ^NT PRT C PWCR0H1113 30-OCT-81 11:15 PAGE 
TEST * 56 - LDCIF AND LDCLF TEST 



N 10 

58-2 



SEQUENCE 130 



S603 

560A 

5605 

5606 

5607 

560a 

5609 

5610 

5611 

5612 

5613 

56U 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

■)656 

5^57 

5o58 

5659 



027056 
027060 
027062 
027064 
027066 
027070 
027072 



027072 
027100 
027104 
027110 
027114 
027120 
027122 
027124 
027126 
027130 
027132 
027134 



027134 
027142 
027U6 
027152 
027156 
027162 
027164 
027166 
027170 
027172 
0271 74 
027176 



027176 
027204 
027210 
027214 
027229 
027224 
027226 
027230 
027232 
027234 
027236 
027240 



027240 
027246 
027252 
027256 
027262 
027266 



000000 
000010 
^77777 
104266 
000612 
104261 



012737 
004737 
125252 
143652 
043652 
000007 
000010 
}77777 
104265 
000401 
104261 



012737 
004737 
040000 
047600 
043600 
000117 
000100 
1 77777 
104267 
000401 
104261 



012737 
004737 
000000 
040200 
034200 
000100 

ooo^oo 

}77777 
m2h7 
000401 
104261 



012737 
004737 
000000 
042052 
036052 
000111 



027100 
027724 
000000 
126000 
126000 



027}^,2 
02772U 
000000 
000000 
000000 



027204 
027724 
000001 
000000 
000000 



027246 
027724 
000252 
000000 
000000 



001110 



001110 



001110 



001110 



74$: 


0 




;FPS BEFOPE EXECUTION. 




10 




;FPS AFTER EXECUTION. 




-1 




.•ANTICIPATED ERRONEOUS 


75$: 


ERROR 


♦266 


;ST 372 TO 152 INTO 




BR 


6$ 


.112 (8UF XNBT) 




ERROR 


♦261 


.REPORT FPS INCORRECT. 



76$: 

;OPERAND=PATTERN 
HOV 

280$: JSR 
81$: .WORD 
82$: .WORD 
83$: .WORD 
84$: 7 
10 
-1 

ERROR 
BP 

ERROR 



85$: 
86$: 



.OPERAND 



290$ 

91$ 

92$ 

93$ 

94$ 



95$: 



96$: 



MOV 
JSR 
.WORD 

.yoRD 

.WORD 
117 
100 
-1 

ERROR 
BR 

ERROR 



;0PERAND=1 
MOV 



300$ 
101$ 
102$ 
103$ 
104$ 



105$: 



106$: 



JSR 

.WORD 

.WORD 

.WORD 

100 

100 

-1 

ERROR 
8R 

ERROR 



;OPERAND= 

NOV 



310$ 
111$ 
112$ 
113$ 
114$ 



JSR 
.WORD 
.WORD 
.WORD 

in 



FL=0 

«280$.$LPERR 
PC. 1000$ 
125252.0 
143652,126000 
43652,126000 



♦265 

86$ 

♦261 



.-SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.•EXPECTED RESULT. 
.-ANTICIPArED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 

.•REPORT FPS INCORRECT. 



;DPr002 



POS FL-1 
#290$-$LPERR 
PC. 1000$ 
40000,0 
47600.0 
43600,0 



♦267 

96$ 

♦261 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
;ST 107 CONSTANT 

;8AD 237 INST 217 
.REPORT FPS INCORRECT. 



;DPK002 



FL=1 

#300$.$LP£RR 
PC ^1000$ 

46200,0 
34200,0 



♦267 
106$ 
♦261 



PATTERN FL=1 
#310$.$LPERR 

PC. 1060$ 

0.^52 

4^052,0 

36052,0 



SET UP THE LOOP ON ERROR ADDRESS. 
60 EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATfD ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 

.•REPORT FPS INCORRECT. 



SET UP THE LOOP ON ERROR ADDRESS. 

GO EXECUTE THE INSTRUCTION. 

FSRC OPERAND. 

EXPECTED RESULT. 

ANTICIPATED ERRONEOUS RESULT. 

FPS BEFORE EXECUTION. 



;0P«002 



;DP«)02 



CUFPCDO FP1U FLTG PNT PRT C HACRO H1113 30-0CT-81 11:15 PAGE 
TEST # 56 - LDCIF AND .DCLF TEST 
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SEQUENCE 131 



5660 027270 

5661 027272 

5662 02 727A 

5663 027276 

5664 027300 

5665 027302 
5666 

5667 

5668 027302 

5669 027310 

5670 0273U 

5671 027320 

5672 027324 

5673 027330 

5674 027332 

5675 027334 

5676 027336 

5677 027340 

5678 027342 

5679 027344 
5680 

5681 

5682 027344 

5683 027352 

5684 027356 

5685 027362 

5686 027366 

5687 027372 

5688 027374 

5689 027376 

5690 027400 

5691 027402 

5692 027404 

5693 027406 
5694 

5695 

5696 027406 

5697 027414 

5698 027420 

5699 027424 

5700 027430 

5701 027434 

5702 027436 

5703 027440 

5704 027442 

5705 027444 

5706 027446 

5707 027450 
5708 

5709 

5710 027450 

5711 027456 

5712 027462 

5713 027466 
57U 027472 

5715 027476 

5716 027^00 



000100 
y77777 
104267 
000401 
104261 



012737 
004737 
140000 
147600 
047600 
000107 
000110 
^77777 
104265 
000401 
104261 



012737 
004737 
}77777 
140200 
150000 
000100 
000110 
^77777 
104266 
000401 
104261 



012737 
004737 
125252 
147652 
047652 
J00105 
000110 
}77777 
104265 
000401 
104261 



027310 
027724 
000000 
000000 
000000 



027352 
02772*, 
}77777 
000000 
000000 



027414 
02772i> 
125252 
125253 
125253 



001110 



001110 



001110 



115$: 
116$: 



100 
-1 

ERROR 
BR 

ERROR 



♦267 
116$ 
♦261 



;0PERAND=-40000,0 
HOV 
JSR 
.WORD 
.WORD 
.WORD 
107 
110 
-1 

ERROR 
BR 

ERROR 



320$ 
121$ 
122$ 
123$ 
124$ 



125$: 



FL=1 

#320$.$LPERR 
PC>1060$ 
-40000.0 
147600-0 
47600.6 



126$; 

;0PERAND=-1.-1 
MOV 



♦265 
126$ 
♦261 



:SET SIGN 



;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.•REPORT RESULT INCORRECT. 

.-REPORT FPS INCORREC^ 



.-SET UP THE LOOP ON ERROR ADDRESS. 
:G0 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.•EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FfS. 



;OP«002 



330$ 
131$ 
132$ 
133$ 
134$ 



135$: 



136$: 



JSR 
.WORD 
.WORD 
.WORD 

100 
110 
-1 

ERROR 
BR 

ERROR 



FL=1 

*330$.$LPERR 
PC, 1000$ 

146200,0 
150000.0 



♦266 
136$ 
♦261 



;OPERAND=-PATTERN 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
105 
110 
-1 

ERROR 
BR 

ERROR 



340$ 
141$ 
142$ 
143$ 
144$ 



145$: 



146$: 



FL=1. 
#340$.$LPERR 

PC J 060$ 

12^252.125252 
147652,125253 
47652.125253 



♦265 
146$ 
♦261 



012737 


027456 001110 




MOV 


004737 


02772^ 


350$: 


JSR 


077777 


177500 


151$: 


.WORD 


0^7777 


y77777 


152$: 


.WORD 


0(,7777 


}77776 


153$: 


.WORD 


0001 1 7 




154$: 


117 


000100 






100 



;0PERAND=77777. 177500 FL=1. 

#350$.$LPERR 

PC. 1060$ 

77^77,177500 
^7777.177777 
4,7777,177776 



.•REPORT FPS INCORRECT. 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 

.'EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
;(6UT XNBT) 

.•REPORT FPS INCORRECT. 



ROUND nODE 

;SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 

;FSRC OPERAND. 

.EXPECTED RESULT. 

.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED FRRONEOUS FPS. 
.-REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



ROUND NODE 

.•SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 

;FSRC OPERAND. 

.•EXPECTED RESULT. 

.-ANTICIPATED ERRONEOUS RESUlT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



.•nP«002 



.■DPM0^2 



;DPH002 
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5717 027502 

5718 027504 

5719 027506 

5720 027510 

5721 027512 
5722 

5723 

5724 027512 

5725 027520 

5726 027524 

5727 027530 

5728 027534 

5729 027540 

5730 027542 

5731 027544 

5732 027546 

5733 027550 

5734 027552 

5735 027554 
5736 

5737 

5738 027554 

5739 027562 

5740 027566 

5741 027572 

5742 027576 

5743 027602 

5744 027604 

5745 027606 

5746 027610 

5747 027612 

5748 027614 

5749 027616 
5750 

5751 027616 

5752 027624 

5753 0276J0 

5754 027634 

5755 027640 

5756 027644 

5757 027646 

5758 027650 

5759 027652 

5760 027654 
5^61 027656 
5762 027660 
5763 

5764 

5765 027660 

5766 027666 

5767 027672 

5768 027676 

5769 027702 

5770 027706 

5771 027710 

5772 027712 

5773 027714 



}77777 
104270 
000401 
104261 



012737 027520 001110 

004737 027724 

040000 000100 

047600 000001 

047600 000000 

000102 

000100 

}77777 

104270 

000401 

104261 



027562 001110 

027724 

000100 

000000 

000001 



012737 
004737 
040000 
047600 
047600 
000157 
000140 
}77777 
104271 
000401 
104261 



012737 
004737 
100000 
144000 
143600 
000007 
000010 
}77777 
m272 
000401 
104261 



012737 027666 001110 

004737 027724 

100000 000000 

150000 000000 

147600 000000 

000107 

000110 

f77777 

} 0^,272 



027624 001110 

027724 

000000 

000000 

000000 



155$: 
156S: 



-1 

ERROR 
BR 

ERROR 



♦270 
156S 
♦261 



;OPERAN0=40000.000100 FL=1. 



360S 
161S 
162S 
163S 
164« 



165S: 



166S: 



MOV 
JSR 
.WORD 
.WORD 
.WORD 
102 
100 
-1 

ERROR 
BR 

ERROR 



#360$.$LPERR 

PCJOOOS 
40600,100 
47600,1 
47600,0 



♦270 
166$ 
♦261 



;OPERAND=40000,000100 FL=1, 



370$ 
171$ 
172$ 
173$ 
174$ 



175$: 



NOV 

JSR 

.WORD 

.WORD 

.UORO 

157 

140 

-1 

ERROR 
BR 

ERROR 



#370S.$LPERR 
PC, 1000$ 
40000.100 
47600,0 
47600,1 



♦271 
176$ 
♦261 



176$: 

;0PERAND= 100000,0 (HOST NEC «) 



380$ 
181$ 
182$ 
183$ 
184$ 



185$: 



186$: 



MOV 
JSR 
.WORD 
.WORD 
.WORD 
7 

10 
-1 

ERROR 
BR 

ERROR 



#380$.$LPERR 
PC -1000$ 

io6ooo,o 

U4000,0 
U3600.0 



♦272 
186$ 
♦261 



;0PERAND=1 00000.0 



FL=1 



390$ 
191$ 
192$ 
193$ 
194$ 



195$: 



MOV 
JSR 
.WORD 
.WORD 
.WORD 
107 
110 
-1 

ERROR 



#390$.$LPERR 
PC -1000$ 

1 06000, 0 

150000.0 
147600.0 



♦272 



SEOUcNCE 132 



.ANTICIPATED ERRONEOUS FPS. 
;ST 631 INTO RND 

.REPORT FPS INCORRECT. 



ROUND MODE 

:SET UP THE LOOP ON ERROR ADDRESS. ;C<PM002 
;G0 EXECUTE THE INSTRUCTION. 

:FSRC OPERAND. 
; EXPECTED RESULT. 
; ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ER«^ONEOUS FPS. 
.•REPORT RESULT INCORRECT. 

.•REPORT FPS INCORRECT. 



TRUNC MODE 

.-SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
;G0 EXECUTE VHE INSTRUCTION. 

;FSRC OPERAND. 
.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
;ST 631 ... INTO TRNC 

.•REPORT FPS INCORRECT. 



;SET OP THE LOOP ON ERROR ADDRESS. ;DPM002 
;G0 EXECUTE THE INSTRUCTION. 

;FSRC OPERAND. 

.•EXPECTED RESULT. 

.ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
:ST 630 RH*RU^1 

.REPORT FPS INCORRECT. 



.SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
;60 EXECUTE THE INSTRUCTION. 

.•FSRC OPERAND. 

:EXPECTED RESULT. 

.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.'REPORT RESULT INCORRECT. 
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TEST # 5b - LDCIF AND LOCLF TEST 

577A 027716 000401 BR 196$ 

5775 027720 104261 ERROR +261 .-REPORT FPS INCORRECT. 

5776 027722 000506 196S: BR 400S 
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SEQUENCE 



5777 




5778 




5779 




5780 




5781 




578? 




5785 




5784 




5785 




5786 




5787 




5788 




5789 




5790 




5791 




5792 




5793 




5794 




5795 




5796 




5797 




5798 




5799 




580C 




5801 




5802 




5803 




5804 




5805 




5806 




5807 




5808 


027724 


^809 


027726 


5810 


027732 


5811 


027734 


5812 


0277it2 


5813 




5814 


027744 


5815 




5816 


027746 


5817 


027750 


5818 


027754 


5819 


027760 


5820 


C27762 


5821 




5822 


027764 


5823 


027770 


5824 


027771* 


5825 


030000 


5826 


030002 


5827 


030006 


5828 


030012 


5829 


030016 


5830 


030024 


5831 


030026 


5832 


030032 


5833 


030036 



012601 
016100 
170100 
012737 
010100 

177010 

170204 
012700 
012702 
170102 
174010 

012702 
010237 
010137 
010103 
062703 
010337 
010437 
016137 
010100 
062700 
012703 
022022 



000014 

026464 001236 



030130 
000200 



030130 
001242 
001240 

000004 
001244 
001250 

000016 00 252 

000004 
000002 



JSR 


PC. 1000$ 


ACAR6: 


.WORD 


X,X 


RES: 


.WORD 


X,X 


ERRES: 


.WORD 


X,X 


fPS8: 


.WORD 


X 


FPSA: 


.UORD 


X 


ERF PS: 


.WORD 


X 


ERRl: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







THIS SUBROUTINE, 1000$. IS USED TO SET UP THE OPERANDS. EXECUTE 
THE LDCIF OR LDCLF INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 

PC. 1000$ 

;AC OPERAND 
.EXPECTED RESULT 
.•ERROR RESULT 
:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.ERROR FPS 
.-DATA ERROR 

;FPS ERROR 
; RE TURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE LDCIF OR LDCLF INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

COMPARED WITH FPSA IF THIS TOO IS CORRECT 1000$ RETURNS CONTROL 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ WILL 

COMPARE IT TO ERROR FPS. IF THIS HATCHES THEN 1000$ WILL RETURN 

TO THE ERROR CALL AT ERR2. OTHERWISE 1000$ ITSELF 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

LDCIF OR LDCLF IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000$ 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERRl. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



1000$: 



NOV 

HOV 

LDFPS 

NOV 

MOV 



(SP)*.R1 

14(R1).R0 

RO 

«1$.$TMP2 
RI.RO 



1001$: LDCIF (RO).ACO 

STFPS R4 

HOV «1200$.R0 

HOV #200. R2 

LDFPS R2 

STD ACO.(RO) 

HOV f1200$.R2 

HOV R2.$THP4 

HOV R1.$THP3 

HOV R1.R3 

ADD ir4.R3 

MOV R3.$TMPS 

NOV R4.$TNP7 

NOV 16(R1),$TNP10 

HOV R1 ,R0 

ADD #4,R0 

HOV #2.R3 

1002$: CMP (R0)*.(R2)* 



.GET A POINTER TO THE ARGUMENTS. 
;SET THE FPS. 



.TEST INSTRUCTION LDCIF OR LDCLF. 



;6ET FPS. 

;6ET THE RESULT. 



:SEE IF THE RESULT WAS CORRECT. 



F 11 
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SEQUENCE 135 



583A 


030040 


001006 


5835 


030042 


077303 


5836 






5337 


030044 


026104 


583« 


030050 


001020 


5839 


030052 


000161 


58A0 






58A1 






58A2 


030056 


012702 


5843 


030062 


010100 


5844 


030064 


062700 


5845 


030070 


012703 


5846 


030074 


022022 


5847 


030076 


001003 


5848 


030100 


077303 


5849 


030102 


000161 


5850 






5851 






5852 


030106 




5853 






5854 


030106 


104260 


5855 


030110 


000760 


5856 






5857 






5858 




026104 


5859 


030112 


5860 


030116 


001002 


5861 


030120 


000161 


5862 






5863 






5864 


030124 




5865 


030124 


104261 


5866 


030126 


000751 


5867 






5868 






5869 


030130 


000000 


5870 






5871 


030140 






030140 


104412 



000016 
000030 

030130 

000010 
000002 

000022 



000000 



BNE 

SOB 

CMP 
BNE 

1003$: J«P 



1010$ 
R3J002$ 

16(R1),R4 

1015$ 

30(R1) 



:BR IF INCORRECT. 



;SEE IF THE FPS WAS CORRECT. 
;BR IF INCORRECT. 
.•RETURN. 



RtSULT IN CORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 



1010$: MOV 
NOV 
ADD 

nov 

1011$: CMP 
BNE 
SOB 
JMP 



f1200$.R2 
Rl.RO 
#10, RO 
#2,R3 

(r6)*.(R2)* 
1013$ 
R3.1011$ 
22(R1) 



;THE FAILURE WAS NOT ANTICIPATED SO REPORT THE ERROR HERE. 
1013$: 



1014$: 



ERROR 
BR 



♦260 
1003$ 



.-BAD RES 



;THE FPS WAS INCORRECT SO SEE IF IT WAS ANTICIPATED. 
1015$: CMP 20(R1).R4 

BNE 1016$ 

jnp 26(R1) 

.-FPS ERROR NOT ANTICIPATED SO REPORT IT HERE. 
1016$: 

1017$; ERROR +261 .BAD FPS 

BR 1003$ 



.•DATA BUFFER: 
1200$: .WORD 



0.0,0.0 



400$: 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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SEQUENCE 136 



5877 



030142 

5878 

5879 030U4 

5880 030152 

5881 030156 

5882 030162 

5883 030172 

5884 030202 

5885 030204 

5886 030206 

5887 030210 

5888 030212 

5889 030214 

5890 030216 
5891 

5892 030216 

5893 030224 

5894 030230 

5895 030234 

5896 030244 

5897 030254 

5898 030256 

5899 030260 

5900 030262 

5901 030264 

5902 030266 

5903 030270 
5904 

5905 

5906 030270 

5907 030276 

5908 030302 

5909 030306 

5910 030316 

5911 030326 

5912 030330 

5913 030332 

5914 030334 

5915 030336 

5916 030340 

5917 030342 
5918 

5919 

5920 030342 

5921 030350 

5922 030354 

5923 030360 

5924 030370 

5925 030400 
5^26 030402 



000004 

012737 030152 

004737 031012 

000000 000000 

000000 000000 

}77777 }77777 

000213 

000204 

^77777 

104273 

000401 

104274 



012737 030224 

004737 031012 

000000 177777 

000000 000000 

004177 177400 

000200 

000204 

}77777 

104275 

000401 

104274 



012737 030276 

004737 031012 

000000 000000 

000000 000000 

^77777 y77777 
000211 
000204 

^77y77 

104273 
000401 
104274 



012737 
004737 
040000 
043600 
047600 
000217 
000200 



030350 
031012 
000000 
000000 
000000 



001110 



000000 
}77777 



001110 



000000 
000000 



001110 



000000 
^77777 



001110 



000000 
000000 



.SBTTL TEST # 57 - LDCID AND LDCLD TEST 



.••TEST 57 



LDCID AND LDCLD TEST 



;* THIS IS A TEST OF LDCID AND LDCLD 



TST57: SCOPE 
;OPERAND=0 
NOV 

200$: JSR 
1$: .WORD 
2$: .WORD 
3$: .WORD 
4S; 213 
204 
-1 

5S: ERROR 
BR 

ERROR 

6S: 

:OPERAND-0 
NOV 



210$: 

11$: 

12$: 

13$: 

14$: 



15$: 



16$: 



JSR 
.WORD 
.WORD 
.WORD 

200 
204 
-1 

ERROR 
BR 

ERROR 



;OPERAND=0 
NOV 



220$: 

21$: 

22$: 

23$: 

24$: 



25$: 



26$: 



JSR 

.WORD 

.WORD 

.WORD 

211 

204 

-1 

ERROR 
BR 

ERROR 



;OPERAND=40000 
NOV 



230$: 

31$: 

32$: 

33$: 

34$: 



JSR 
.WORD 
.WORD 
.WORD 

217 
200 



FL=0- FD=1 
#200$-$LPERR 
PC. 1000$ 
0.6 

0,0.0.0 
-1.-1.-1.-1 



♦273 
6$ 
♦274 

FL=Ot FD=1 
#210$.$LPERR 
PC. 1000$ 
0.-1 
0,0.0.0 

4i7^.f77400.0.0 



♦275 

16$ 

♦274 



FL=1 FD=1 
#220$.$LPERR 
PC -1000$ 
0.6 

0,0,0.0 
-1.-1.-1.-1 



:SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.•EXPECTED RESULT, 

.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.•REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



♦-•73 

26$ 

♦274 



FL=0 FD=1 

«230$.$LPERR 

PC.1060$ 

40600,0 

43600,0,0.0 

47600,0.0,0 



;DPN002 



.-SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
.FSRC OPERAND. 
.•EXPECTED RESULT. 

.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.-(BUT FL)S^277 
.-TO 300 INTO 301 
.•REPORT FPS INCORRECT. 



.SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 
.EXPECTED RESULT. 

.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.•REPORT RESULT INCORRECT. 

.•REPORT FPS INCORRECT. 



.•SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 

.•EXPECTED RESULT. 

.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



;DPN002 



;DPN002 



;DPN002 
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SEQUENCE 137 



5927 03{K(K 

5928 030406 

5929 030A10 

5930 030412 

5931 0304U 
S932 

5933 

5934 030414 

5935 030422 

5936 030426 

5937 030432 

5938 030442 

5939 030452 

5940 030454 

5941 030456 

5942 030460 

5943 030462 

5944 030464 

5945 030466 
5946 

5947 

5948 030466 

5949 030474 

5950 030500 

5951 030504 

5952 030514 

5953 030524 

5954 030526 

5955 030530 

5956 030532 

5957 030534 

5958 030536 

5959 030540 
5960 

5961 

5962 030540 

5963 030546 

5964 030552 

5965 030556 

5966 030566 

5967 030576 

5968 030600 

5969 030602 

5970 030604 

5971 030606 

5972 030610 

5973 030612 
5974 

59/5 

5976 030612 

5977 030620 

5978 030624 

5979 030630 

5980 030640 

5981 030650 

5982 030652 

5983 030654 



M7777 
104276 
000401 
104274 



012737 
004737 
140000 
143600 
043600 
000200 
000210 
y77777 
104277 
000401 
104274 



012737 
004737 
040000 
047600 
043600 
000317 
000300 
y77777 
104300 
000401 
104274 



012737 
004737 
000000 
040200 
034200 
000300 
000300 
y77777 
104300 
000401 
104274 



012737 
004737 
077777 
OW777 
}77777 
000317 
000300 
U7777 



030422 
031012 
000000 
000000 
000000 



030474 
031012 
000000 
000000 
000000 



030546 
031012 
000001 
000000 
000000 



030620 
031012 
}77777 
y77777 
}77777 



001110 



000000 
000000 



001110 



000000 
000000 



001110 



000000 
000000 



001110 



177000 
^77777 



35$; 
36$: 



-1 

ERROR 
BR 

ERROR 



;0PERAND=-40000 
MOV 



240$ 
41$ 
42$ 
43$ 
44$ 



45$: 



46$: 



JSR 
.WORD 
.WORD 
.WORD 

200 
210 
-1 

ERROR 
BR 

ERROR 



♦276 

36$ 

♦274 



fL=0 FD=1 

#240$.$LPERR 

PC-1060$ 

-46000.0 

143600.0.0.0 

43600,6.6.6 



♦277 

46$ 

♦274 



;OPERAND=40000.0 



250$: 
51$: 
52$: 
53$: 
54$: 



55$: 



56$: 



MOV 
JSR 
.WORD 
.WORD 
.UORD 
317 
300 
-1 

ERROR 
BR 

ERROR 



;OPERAND=0.1 
MOV 



260$ 

61$ 

62$ 

63$ 

64$ 



65$: 



66$: 



JSR 

.WORD 

.WORD 

.WORD 

300 

300 

-1 

ERROR 
BR 

ERROR 



FL = 1 

#250$.$LPERR 

PC. 1060$ 

40000,0 

47600,0,0,0 

43600,0,0,0 



♦300 

56$ 

♦274 



FL=1 F0=1 
#260S.SLPERR 
PC.IOOOS 

46200.0,0,0 
34200,0,0,0 



♦300 

66$ 

♦274 



;0PERAND=77777. 177777 



270$: JSR 
71$: .WORD 
72$: .WORD 
73$: .WORD 
74$: 317 

300 

-1 



FL=1 



.ANTJCIPATED ERRONEOUS FPS. 
;ST 107 BAD CONST 

.REPORT FPS INCORRECT. 



.SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
.-FSRC OPERAND. 
.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
(SET SIGN) ST 176 

.•REPORT FPS INCORRECT. 



FD=1 

;SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
;«SRC OPERAND. 

.•EXPECTED RESULT. 
.-ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
ST 107 BAD CONS 

.REPORT FPS INCORRECT. 



; SET UP THE LOOP ON ERPOR ADDRESS. 
:G0 EXECUTE THE INSTRUCTION. 
.FSRC OPERAND. 

.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT fPS INCORRECT. 

.•REPORT FPS INCORRECT. 



FD=1 



;DPM002 



;DPM002 



;0PM002 



«270$,$LPERR .SET UP THE LOOP ON ERROR ADDRfcSS. 
PC. 1060$ ;G0 EXECUTE THE INSTRUCTION. 

77^77.^77777 ;FSRC OPERAND. 

(^7777^77777. mm. 0 .-EXPECTED RESULT. 

-1.-1.-1,-1 .ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 



.•0PM002 
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SEQUENCE ^58 



S98A 


030656 


104273 




5985 


030660 


000401 




5986 


030662 


104274 




5987 


030664 






5988 








5989 








5990 








5991 


030664 


012737 


C30672 


5992 


030672 


004737 


031012 


5993 


030676 


\77777 


177526 


5994 


030702 


142052 


000000 


5995 


030712 


136052 


000000 


5996 


030722 


000307 




5997 


030724 


000310 




5998 


030726 


^77777 




5999 


030730 


104300 




6000 


030732 


000<.01 




6001 


030734 


104274 




6002 


030736 






6003 








6004 








6005 


030736 


012737 


030744 


6006 


030744 


004737 


031012 


6007 


030750 


012345 


067012 


600e 


030754 


047247 


025560 


6009 


030764 


\77777 


y77777 


6010 


030774 


000352 




6011 


030776 


000340 




6012 


031000 


\77777 




6013 


031002 


104273 




60U 


031004 


000401 




6015 


031006 


104274 




6016 


031010 


000506 





001110 



000000 
000000 



001110 



050000 
}77777 



75$: 



76$: 



ERROR ^273 
BR 76$ 
ERROR ^274 



;OPERAND=-PATTERN 



FL = 1 



280$ 

81$ 

82$ 

83$ 

84$ 



85$: 



86$: 



NOV 

JSR 

.WORD 

.WORD 

.WORD 

307 

310 

-1 

ERROR 
BR 

ERROR 



#280$.$LPERR 
PC, 1000$ 

-1.-252 

14^052.0,0.0 

136052.0.0.0 



♦ 300 

86$ 

♦274 



.'REPORT RESULT INCORRECT. 
.-REPORT FPS INrORRECT. 

FD=1 

;SET UP THE LOOP ON ERROR ADDRESS. 
:G0 EXECUTE THE INSTRUCTION. 
:FSRC OPERAND. 

.EXPECTED RESULT. 

.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.REPORT RESULT INCORRECT. 

.REPORT FPS INCORRECT. 



;DP«002 



;OPERAND=PATTERN 
NOV 
JSR 
.WORD 
.WORD 
.WORD 



290$ 
91$ 
92$ 
93$ 
94$ 



95$: 



96$: 



FL=1 F0=1 FTsI 

#290$,$LPERR ;SET UP ThE LOOP ON ERROR ADDRESS. 

PC. 1000$ ;G0 EXECUTE THE INSTRUCTION. 
12^45.67012 ;FSRC OPERAND. 

47247.025560.050000.0 ;EXP€CTEO RESULT. 

-1.-1.-1.-1 .-ANTICIPATED ERRONEOUS RESULT. 

352 ;FPS BEFORE EXECUTION. 

340 ;FPS AFTER EXECUTION. 

-1 .ANTiCIPATED ERRONEOUS FPS. 

ERROR +273 .REPORT RESULT INCORRECT. 
BR 96$ 

ERROR +274 .-REPORT FPS INCORRECT. 
BR 300$ 



;DP«002 
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SEQUENCE 







^1 A 

DU 1 O 












OVC 1 




















DUcD 












































6»037 
















6041 

^^^^ 1 




6042 




6043 

^^^^ J 




6044 




6045 




6046 




6047 

^^^^ ' 




604A 


03101? 




0^1014 


6050 


031 0?0 


6051 


031022 


605? 


031030 


6053 


031032 


6054 




6055 


031034 


6056 


031036 


6057 


03104? 


6058 


031046 


6059 


031050 


6060 




6061 




606? 
owe 


03105? 


6063 


031056 


6064 


031062 


6065 


031066 


6066 


031070 


6067 


031074 


606fl 


031100 


6069 


031104 


6070 


031112 


6071 


031114 


6072 


031120 


6073 


031124 



012601 
016100 
170100 
012737 
010100 
177010 

170204 
012700 
012702 
170102 
174010 



012702 
010237 
010137 
010103 
062703 
010337 
010437 
016137 
010100 
062700 
012703 
022022 



000024 

031032 001236 



031216 
000200 



031216 
001242 
001240 

000004 
001244 
001250 

000026 001252 

000004 
000002 



THIS SUBROUTINE. 1000$, IS USED TO SET UP THE OPERANDS, EXECUTE 
THE LDCID OR LDCLD INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 



;AC OPERAND 

.•EXPECTED RESULT 

.ERROR RESULT 

;FPS BEFORE EXECUTION 

;FPS AFTER EXECUTION 

.ERROR FPS. 

.DATA ERROR. 



JSR 


PC.1000S 


AC ARC: 


.WORD 


X.X 


RES: 


.WORD 


X X ^ X X 


ERRES: 


.WORD 


X f X ^ X y X 


FPS8: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERFPS: 


.WORD 


X 


ERR1: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







;FPS ERROR. 
.RETURN ADDRESS 



THEN 



THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). 
THE LDCID OR LDCLD INSTRUCTION IS EXECUTED. _ ^ ^ , , 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT 1000$ RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ 
C0l>V>ARE IT TO ERROR FPS. IF THIS MATCHES THEN 1000$ WILL RETURN 
TO THE ERROR CALL AT ERR2. OTHERWISE 1000$ ITSELF 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
LDCID OR LDCLD IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN. ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLT TO BE ERRES THEN 1000$ 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1 . OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



1000$: 



101$: 



MOV 

MOV 

LDFPS 

MOV 

MOV 

LDCID 

STFPS 

MOV 

MOV 

LDFPS 
STD 



(SPJ*.R1 

24(R1).R0 

RO 

f101$.$TMP2 

R1.R0 

(RO).ACO 

R4 

f1200$.R0 

f200.Rj 

R2 

ACO,(RO) 



;GET A POINTER TO THE ARGUMENTS. 
.SET THE FPS. 



.•TEST INSTRUCTION. LDCID OR LDCLD. 



.GET FPS. 

.-GET THE RESULT. 



.SEE IF THE RESULT IS CORRECT. 

MOV f1200$.R2 

MOV R2.$TMP4 

MOV R1.$TMP3 

MOV R1.R3 

ADD #4.R3 

MOV R3.$TMP5 

MOV R4.$TMP7 

MOV 26(R1).$TMP10 

MOV R1.R0 

ADD #4.R0 

MOV #2.R3 

102$: CMP (R0)*.(R2)» 
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t07i, 031126 


001006 




6075 031150 


077305 




6076 






6077 031152 


026104 


000026 


6078 031136 


001020 




6079 051 UO 


000161 


000040 


6080 






6081 




031216 


6082 031 U4 


012702 


6083 031150 


010100 




6U8<. 031152 


062700 


000014 


6085 031156 


012703 


000002 


6086 031162 


022022 




6087 031164 


001003 




6088 031166 


077303 




6089 031170 


000161 


000032 


6090 031174 






6091 






6092 031174 


104273 




6093 031176 


000760 




6094 






6095 






6096 031200 


026104 


000030 


6097 031204 


001002 




6098 031206 


000161 


000036 


6099 






6100 031212 






6101 






6102 031212 


104274 




6103 031214 


000751 




6104 






6105 






6106 






fc107 031216 


000000 


000000 


6108 






6109 031226 






031226 


104412 





000000 



BNE 

soe 

CMP 
BNE 

105$: JNP 



110$ 
R3.102$ 

26{ft1).R4 
115$ 

40(R1) 



:BR If INCORRECT. 



;1S THE FPS CORRECT? 
:BR IF INCORRECT. 
.•RETURN. 



THE RESULT WAS INCORRECT SO SEE IF THE ERROR WAS ANTICIPATED. 



llOS 



111$: 



113$: 



NOV 

nov 

ADD 
«0V 
C«P 
BNE 

SOB 



#1200$.R2 
Rl.RO 
#14, RO 
#2.R3 

(R0)*.{R2)* 
113$ 
R3.111$ 
32(R1) 



.-ERROR NOT ANTICIPATED SO REPORT RESULT INCORRECT HERE. 
114$: ERROR *27l ;BAD RES 

BR 103$ 

.THE FPS WAS INCORRECT. SEE IF FAILURE WAS ANTICIPATED. 
115$: CNP 30<R1),R4 

BNE 116$ 

JW> 36(R1) 
;FPS ERROR yAS NOT ANTICIPATED SO REPORT FAILURE HERE. 
^^6%: 



117$: 



ERROf 



.DATA BUFFER: 
1200$: .WORD 



♦274 
103$ 



0.0,0.0 



;8A0 FPS 



300$: 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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SEOUENCf U1 



6119 
6120 
6121 
6122 
6123 
61 2A 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6U0 
6K1 
6U2 
6U3 
6UA 
6US 
6U6 
6U7 
6U8 
6U9 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 



031230 000004 



031232 
031240 
031244 
031254 
031256 
031266 
031276 
031300 
031302 
031304 
031306 
031310 
031312 



031314 
031322 
031326 
031336 
031340 
031350 
031360 
031362 
031''4 
031. 6 
0313/0 
031372 
031374 
031376 



031376 
031404 
031410 
031420 
031422 
031432 
031442 
031444 
031446 
031450 
031452 
031454 
031456 
031460 



012737 
004737 
012345 
000010 
042145 
002145 
047217 
047200 
147200 
y77777 
104304 
000400 
104305 



012737 
004737 
123456 
000177 
177656 
137656 
047207 
047210 
147210 
y71777 
104304 
000401 
104305 



012737 
00<,717 
073261 
000056 
053461 
y77777 
0^7200 
047200 
147200 
\77777 
104301 
000401 
104305 



031240 
032674 
067012 

067012 
067012 



031322 
032674 
070123 

070123 
070123 



031404 
0l267t, 
057645 

057645 
^77777 



001110 

034567 

034567 
034567 



001110 

045670 

045670 
045670 



001110 

043323 

043323 
}77777 



S8TTL TEST t 60 - LDEXP TEST 



•TEST 60 



LDEXP TEST 



THIS IS A TEST OF THE LDEXP INST 
A SUBAOUTINE IS USED TO SET UP 
OPERANDS. EXECUTE THE LDEXP INST AND 
CHECK THE RESULTS. 



TST60: SCOPE 
; NON-ZERO RES. 

nov 



200S: 
IS: 
2$ 
3$ 
4S 
5$ 



6S: 
7$: 



JSR 

.yORO 

.yORD 

.WORD 

.WORD 

47217 

47200 

147200 

-1 

ERROR 
BR 

ERROR 



, NON-ZERO 

nov 

210$: JSR 
11$: .WORD 
12$: .WORD 
13$: .WOf^D 
14$: .WORD 
15$: 47207 
47210 
147210 
-1 

ERROR 
BR 

ERROR 



16$: 
17$: 



; NON-ZERO 

I'lOV 

220$: JSR 
21$: .WORD 
22$: .WORD 
23$: .WORD 
24$: .WORD 
25$: 47200 
47200 
147200 
-1 

26$: ERROR 
BR 

ERROR 

27$: 



VALID EXPON=210 (EXCESS 200)=10 

«200$.$LPERR :SET UP THE LOOP ON ERROR ADDRESS. ;DPn002 
PC. 1000$ :60 EXECUTE THE INSTRUCTION. 

12^45. 67012, 3456>. 012345 ;ACO OPERAND. 

10 ;EXPONENT OPERAND. 

42145.67012-3456^012345 .EXPECTED RESULT. 

2145.67012.34567.012345 .ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 
♦304 ;E12*E1 2*200 BAD 

7$ ;ST 624 

♦305 .'REPORT FPS INCORRECT. 

:ST 625 INTO 304 



RES 



NEC. 



.-SET UP THE LOOP ON ERROR ADDRESS. 
EXP0Ns377 

;ACO OPERAND. 



#210$.$LPERR 

PC. 1000$ .w 

12^456. 70123. 456>0.123456 
177 : EXPONENT OPERAND. 

1 77656. 701 23.45670. 123456 
137656.70123.45670.123^ 

;FPS Bt - HE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

.•REPORT RESULT INCORRECT. 



;DP«002 



.•EXPECTED RESULT. 
.-ANTICIPATED ERRONEOUS RESULT. 



♦ 304 
17$ 
♦305 



.REPORT FPS INCORRECT. 



RES. EXP=256=(56)REAL 

«220$.$LPERR :SET UP THE LOOP ON ERROR ADDRESS. :DPN002 
PC. 1000$ ;G0 EXECUTE THE INSTRUCTION. 

73^61.057645,433^3.101760 .ACO OPERAND. 

56 'EXPONENT OPERAND 

53461. 057645.433^3. 101760 .EXPECTED RESULT. 

-1.-1,-1.-1 .ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 

;FPS AFTER EXECUTION. 

.ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 
♦301 .'REPORT RESULT INCORRECT. 

27$ 

♦305 .REPORT FPS INCORRECT. 



CSfPCDO FPIIF FLTG PNT 
TEST » 60 - LDEXP TEST 



PRT 



tWCRO «in3 30-0CT-81 11:15 PAGE 



n 11 

62-1 



S£OUEMCE U? 



6165 

6166 

6167 

616fl 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

618A 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6239 

6210 

6211 

6212 

6213 

62U 

6215 

6216 

6217 

6218 

6219 

6220 

6221 



031460 
031466 
031472 
031502 
031504 
031514 
031524 
031526 
031530 
031532 
031534 
031536 
031540 
031542 



031542 
031550 
031554 
031564 
031566 
031576 
031606 
031610 
031612 
031614 
031616 
031620 
031622 
031624 



031624 
031632 
031636 
031646 
031650 
031660 
031670 
031672 
031674 
031676 
031700 
031702 
031704 
031706 



031706 
031714 
031720 
031730 
031732 



012737 
004737 
012223 
177627 
005623 
M7777 
0A7200 
047200 
147200 
}77777 
104301 
000401 
104506 



012737 
004757 
140414 
177600 
100014 
000000 
042200 
142214 
042214 
000012 
104507 
000401 
104310 



012757 
004757 
051525 
177600 
000000 



;EXP= 



031466 


001110 




052674 
024252 




250$; 


062720 


51$: 






52J: 
55$: 


024252 


062720 


}77777 


}77777 


54$: 
55$: 



56$: 
57$: 



27 (EXCESS 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
.UORr 
472C0 
47200 
147200 
-1 

ERROR 
BR 

ERROR 



200)=-l51 (OCT) 

#250$.$LPERR .SET UP THE LOOP ON ERROR ADDRESS. :DPM002 
PC. 1000$ :G0 EXECUTE THE .'NSTRUCTJON. 

12^25.24252.62726.21222 .AGO OPERAND. 
-151 .EXPONENT OPERAND. 

5625.24252.62720.21222 .-EXPECTED RESULT. 

-1.-1. -1.-1 .ANTICIPATED ERRONEOUS RESULT. 

;fPS BEFORE EXECUTION. 

;fPS AFTER EXECUTION. 

.•Ar^TICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 
♦501 .-REPORT RESULT INCORRECT. 

37$ 

♦506 .-(BUT EZ8T) ST 544 TO 504 INTO 704 0 (BUT EXBT) ST 704 INTO 



:EXP=0 (EXCESS 
; FIV=1 



012757 


051550 


001110 




nov 


004757 


052674 




240$: 


JSR 


050151 


032534 


035565 


41$: 


.WORD 


177600 






42$: 


.WORD 


000151 


032334 


035363 


43$: 


.WORD 


000000 


000000 


000000 


44$: 


.WORD 


042200 






45$: 


42200 


142204 








142204 


042202 








42202 


000012 








12 


104507 






46$: 


ERROR 


000401 








BR 


104510 








ERROR 



200)--200 (OCT). POSITIVE FRAC 

»240$.$LPERR .-SET UP THE LOOP ON ERROR ADDRESS. 

PC. 1000$ :G0 EXECUTE THE INSTRUCTION. 

30151.52554.55565,75051 ;AC0 OPERAND. 

-200 : EXPONENT OPERAND. 

00151. 52554.5556i. 75051 .EXPECTED RESULT. 

0.0.0,0 .-ANTICIPATED ERRONEOUS RESULT. 

.-FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
; ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

.-(BUT EXBT) ST 704 TO 64 INST 264 



;DPM002 



051652 
052674 
024344 

024344 
000000 



001110 

045464 

045464 
000000 



47$: 
.-EXP=0 



250$ 

51$ 

52$ 

55$ 

54$ 

55S 



56$: 
57$: 



♦507 
47$ 
♦510 



.-(BUT FIU) ST 264 X 



(EXCESS 

NOV 

JSR 

.WORD 

.WORD 

,Mm> 

.WORD 

42200 
(42214 
42214 
12 

ERROR 
BR 

ERROR 



200)=-200 (OCT), NEG FRACT,FIU=1 
#250$.$LPERR .-SET UP THE LOOP ON ERROR ADDRESS 
PC. 1000$ .GO EXECUTE THE INSTRUCTION. 

140414,24544.45464.74045 .ACO OPERAND. 

-200 :EXPON£NT OPERANt. 

10001 4. 24 344. 454^4.74045 ;-0 
0.0.0.6 .-ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.-EXPECTED FEC. 

.-REPORT RESULT INCORRECT. 



;DP«002 



.-EXPECTED RESULT. 



♦507 
57$ 
♦310 



.REPORT FPS INCORRECT. 



051714 
052674 
035455 

000000 



001110 
005675 
000000 



;EXP=0 (EXCESS 200)=-200 (OCD.POS FRAC. FIU=0 

NOV #260$.$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

260$ JSR PC.1060$ .-GO EXECUTE THE INSTRUCTION. 

61$: .WORD 51$25. 55455. 5675, 05152 ;ACO OPER*ND. 

62$: .WORD -200 .'EXPONENT OPERAND. 

63$: .WORD 0,0,0,0 .-EXPECTED RESULT. 



;0P«002 



CKFPCDO FP11F FLTG PNT PRT C 
TEST t 60 - LDEXP TEST 
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SEQUENCE U3 



6222 

6223 

622A 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

62 3« 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 



031742 
031752 
031754 
031756 
031 760 
031 762 
031764 
031766 
031770 



031770 
031776 
032002 
032012 
032014 
032024 
032034 
032036 
032040 
032042 
032044 
032046 
032050 
032052 

032052 
032060 
032064 
032074 
032076 
032106 
032116 
032120 
032122 
032124 
032126 
032130 
032132 
032134 



032134 
032142 
032146 
032156 
032160 
032170 
032200 
032202 
032204 
032206 
032210 
032212 
032214 
032216 



000125 
045200 
045204 
145204 
177777 
104311 
000401 
104302 



012737 
004737 
061626 
176173 
076626 
000000 
042200 
142200 
042204 
000012 
104312 
000401 
104302 



012737 
004737 
071727 
160162 
000000 
074527 
045200 
045204 
145200 

\mn 

104313 
000401 
104302 



012737 
00^*717 
001020 
175777 
037620 
000000 
042200 
142200 
042204 
000012 
104312 
000401 
104302 



035455 005675 64$: 



66S: 

67$: 

;EXP= 

270$; 

71$ 

72$ 

73$ 

74$ 

75$ 



031776 
032674 
062636 

062636 
000000 



032060 
032674 
037475 

000000 
037475 



032142 
032674 
030405 

030405 
000000 



00M10 

046566 

046566 
000000 



001110 

006070 

006070 
000000 



.WORD 00125,35455,5675.05152 



45200 
45204 
145204 
-1 

ERROR 
BR 

ERROR 



♦311 

67$ 

♦302 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
•ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

.-(BUT FIU) ST 264 X 



.ANTICIPATED ERRONEOL'S RESULT. 



.REPORT RESULT INCORRECT. 



.•REPORT FPS INCORRECT. 



•1405 (EXCESS_200)=-1605 
MOV 
JSR 



76$: 



.yORD 
.yORD 
.yORD 

.yoRD 

42200 
142200 
42204 
12 

ERROR 
BR 

ERROR 



(OCT). FIU=1 

#270$.$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
PC. 1000$ ;G0 EXECUTE THE INSTRUCTION. 

61626,62636,46566,67606 ;ACO OPERAND. 
-1605 : EXPONENT OPERAND. 

76626.62636.46566,67606 .EXPECTED RESULT. 

0.0.0.0 .-ANTICIPATED ERRONEOUS RESULT. 

.FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

;(BUT E28T) ST 544 TO 704 INTO 504 



;DP«002 



♦312 
77$ 
♦302 



.•REPORT FPS INCORRECT, 



001110 

280$ 
076777 81$ 

82$ 

000000 83$ 
076777 84$ 
85$ 



86$: 

8'$: 
;EXP= 



77$: 

;EXP=-17416 (EXCESS. 200)=-17616 (OCT). FIU=0 



;DP«002 



MOV #280$.$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.1060$ ;G0 EXECUTE THE INSTRUCTION. 

.WORD 71727.37475.76777,17273 ;ACO OPERAND. 

.yORD -17616 .EXPONENT OPERAND. 

.yORD 0.0,0.0 ;EXPECTED RESULT. 

.yORD 74527.37475.76777.17273 .ANTICIPATED ERRONEOUS RESULT. 

45200 ;FPS BEFORE EXECUTION. 

45204 ;FPS AFTER EXECUTION. 

145200 ;ANTICIPATED ERRONEOUS FPS. 

-1 .-EXPECTED FEC. 

ERROR ^31 3 .-(BUT FIU) ST 504 

BR 87$ 

ERROR +302 .REPORT FPS INCORRECT. 



290$ 

91$ 

92$ 

93$ 

94$ 

95$ 



96$: 
97$: 



-1601 (EXCESS 200) =-2001 
MOV 
JSR 



.yORD 

.yORD 

.yORD 

.yORD 

42200 

142200 

42204 

12 

ERROR 
BR 

ERROR 



(OCT), FIU=1 

«290$.$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
PC, 1000$ :60 EXECUTE THE INSTRUCTION. 

01620.30405,06076,00102 ;ACO OPERAND. 
-2001 : EXPONENT OPERAND. 

37620,30405,06076.00102 .-EXPECTED RESULT. 

0,0,0,0 ;ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS «PS. 
.EXPECTED FEC. 

;(BUT FIU) ST 504 



;DPM002 



♦312 
97$ 
♦302 



.-REPORT FPS INCORRECT. 
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6279 

6280 032216 

6281 032224 

6282 032230 

6283 032240 

6284 032242 

6285 032252 

6286 032262 

6287 032264 

6288 032266 

6289 032270 
:290 032272 

6291 032274 

6292 032276 

6293 032300 
6294 

6295 

6296 032300 

6297 032306 

6298 032312 

6299 032322 

6300 032324 

6301 032334 

6302 032344 

6303 032346 

6304 032350 

6305 032352 

6306 032354 

6307 032356 

6308 032360 

6309 032362 
6310 

6311 
6312 

6313 032362 

6314 032370 

6315 032374 
6516 032404 

6317 032406 

6318 032416 

6319 032426 

6320 032430 
632^ 032432 
632^ 032434 

6323 032436 

6324 032440 

6325 032442 

6326 032444 
6327 

6328 
6329 

6330 032444 

6331 032452 

6332 032456 

6333 032466 

6334 032470 

6335 032500 



012737 
004737 
012131 
001006 
041531 
000000 
041200 
141202 
041204 
00001 C 
104314 
000401 
104302 



012737 
004737 
027262 
016115 
000000 
063262 
046200 
046206 
146202 
^77777 
104315 
000401 
104302 



012737 
004737 
030313 
010611 
002313 
000000 
041200 
141202 
041204 
000010 
104316 
000401 
104302 



012737 
004737 
040414 
016723 
ODOOOO 
024614 



032224 001110 
032674 

014151 016171 

014151 016171 

000000 000000 



032306 001110 
032674 

025242 023222 

000000 000000 

025242 023222 



032370 001110 
032674 

032333 034353 

032333 034353 

000000 000000 



032452 001110 
032674 

042434 044454 

000000 000000 

042434 044454 



;EXP=1206 (EXCE 

nov 

300$: JSR 
101$: .WORD 
102$: .WORD 
103$: .WORD 
104$: .WORD 
105$: 41200 
141202 
41204 
10 

ERROR 
BR 

ERROR 



106$: 
107$: 



SS 200)=1006 (OCT) FIV =1 
»300$,$LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
PC, 1000$ :60 EXECUTE THE INSTRUCTION. 

12^31, 14151,16171, 10111 ;ACO OPERAND. 
1006 J EXPONENT OPERAND. 

41531.14151,1617^10111 .-EXPECTED RESULT. 

0.0.0.0 .-ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
.-EXPECTED FEC. 

;(8UT FIV) ST 104 



SEQUENCE 144 



;DP«002 



♦314 
107$ 
♦302 



.REPORT FPS INCORRECT. 



;EXP=16315 (EXCESS 200)=16115 
MOV 
JSR 



;OP«002 



(OCT) FIV=0 

#310$-$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

310$: JSR PC. 1000$ ;60 EXECUTE THE INSTRUCTION. 

111$: .WORD 27562.25242,2322^.21202 .-ACO OPERAND. 

112$: .WORD 16115 .'EXPONENT OPERAND. 

113$: .WORD 0.0,0.0 :EXPECTED RESULT. 

114$: .WORD 652^2.25242.23225.21202 .ANTICIPATED ERRONEOUS RESULT. 

115$: 46200 ;FPS BEFORE EXECUTION. 

46206 ;FPS AFTER EXECUTION. 

146202 .-ANTICIPATED ERRONEOUS 

-1 .-EXPECTED FEC. 

116$- ERROR +315 ;(8UT FIV) ST 104 

BR 117$ 

ERROR ^302 .-REPORT FPS INCORRECT. 

117$: 



FPS, 



;EXPs11011 (EXCESS 200)=10611 (OCT) FIV=1 





nov 


320$: 


JSR 


121$: 


.WORD 


122$: 


.WORD 


123$: 


.WORD 


124$: 


.WORD 


125$: 


41200 




141202 




41204 




10 


126$: 


ERROR 




BR 




ERROR 



#320$,$LPERR .-SET UP THE LOOP ON ERROR ADDRESS. 
PC.1060$ :60 EXECUTE THE INSTRUCTION. 

305l 3. 32333. 3435S. 36373 ;ACO OPERAND. 
10611 .EXPONENT OPERAND. 

2313-32333,34353.36373 .EXPECTED RESULT. 

0.0,0.0 .-ANTICIPATED ERRONEOtJS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.-ANTICIPATED ERRONEOUS FPS. 
.-EXPECTED FEC. 

;(8UT FIV) ST 144 



;0PHOO2 



127$: 



♦316 
127$ 
♦302 



.•REPORT FPS INCORRECT. 



;EXP=17123 (EXCESS 200=16723 (OCT) FIV=0 



330$ 
131$ 
132$ 
133$ 
134$ 



;DPH002 



MOV #330$.$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.1060$ ;60 EXECUTE THE INSTRUCTION. 

.WORD 40414.42434.44454.46474 ;ACO OPERAND. 

.WORD 16723 .-EXPONENT OPERAND. 

.WORD 0,0.0,0 .-EXPECTED RESULT. 

.WORD 2^6^,42434. 4445^,46474 .-ANTICIPATED ERRONEOUS RESULT. 



CKFPCDO FP11F FLTG PNT PRT C MACRO ni113 
TcST # 60 - LDEXP TEST 





052510 


046200 

v~ wc w 






135$: 




032512 


046206 








6338 


032514 


146202 








63^9 


052516 


1 77777 






136t: 


6340 


052520 


104317 






6^1 


052522 


000401 










052524 


104502 






137$: 




052526 








^^44 






















;EXP= 


^^^^ 
















012737 

VIC' J • 


032534 


OC 110 


340$: 


6348 


032534 


004737 


032674 




6349 


032540 


050515 


052535 


054555 


141$: 


6350 


032550 


000254 






142$: 


6351 


032552 


013115 


052535 


054555 


143$: 


6352 


032562 


000000 


000000 


000000 


144$: 


6353 


032572 


041200 






145$: 


6354 


032574 


141202 








635S 


032576 


041204 








6356 


032600 


000010 






146$: 


63^7 


032602 


104320 






6358 


032604 


000401 








6359 


032606 


104302 








6360 


032610 








147$: 


6361 












6362 










; EXP= 


6363 












6364 


032610 


012737 


032616 


001110 




6365 


032616 


004737 


032674 




350$. 


6366 


032622 


060616 


062636 


064656 


151$. 


6367 


032632 


000313 






152$. 


^368 


032634 


000000 


000000 


000000 


153$. 


6369 


032644 


022616 


062636 


064656 


154$. 


6370 


032654 


046200 






155$. 


6371 


032656 


046206 

W~ Wfc WW 








6372 


032660 


146202 








6573 


032662 


\77777 








6374 


032664 


104321 






156$ 


6375 


032666 


000401 








6376 


032670 


104302 








6377 


012672 








157$ 


6378 


032672 


000540 
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SEQUENCE 



46200 ;FPS BEFORE EXECUTION. 

46206 ;FPS AFTER EXECUTION. 

146202 .-ANTICIPATED ERRONEOUS FPS. 

-1 .-EXPECTED FEC. 

ERROR ♦SI 7 ;(8UT FIV) ST 144 

BR 137$ 

ERROR +302 .REPORT FPS INCORRECT. 



254 (OCT)= 454 (EXCESS 200) FIV=1 

NOV #340$,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. ;DP«002 

JSR PC, 1000$ :G0 EXECUTE THE INSTRUCTION. 

.WORD 50^15.52535.54555,56575 ;ACO OPERAND. 

.WORD 254 :EXPONENT OPERAND. 

.WORD 13115.52535.5455^.56575 .-EXPECTED RESULT. 

•WORD 0.0.0.0 .ANTICIPATED ERRONEOUS RESULT. 

41200 ;FP3 BEFORE EXECUTION. 

141202 ;FPS AFTER EXECUTION. 

41204 .-ANTICIPATED ERRONEOUS FPS. 

10 ;EXPECTED FEC. 

ERROR +320 ; (BUT FIV) ST344 

BR 147$ 

ERROR 1-302 .-REPORT FPS INCORRECT. 



313 (OCT)= 5I3(EXCESS 200) FIV=0 

nOV #350$,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 

JSft PC. 1000$ ;G0 EXECUTE THE INSTRUCTION. 

.WORD 60616.62636.64656.66676 .-ACO OPERAND. 

.WORD 313 .-EXPONENT OPERAND. 

.WORD 0.0-0.0 .-EXPECTED RESULT. 

.WORD 2^616.62636.64656.66676 .ANTICIPATED ERRONEOUS RESULT. 

46200 ;FPS BEFORE EXECUTION. 

46206 ;FPS AFTER EXECUTION. 

146202 ;ANTJCIPATED ERRONEOUS FPS. 

-1 .-EXPECTED FEC. 

ERROR ♦321 ;<8UT FIV) ST 344 

BR 157$ 

ERROR ^302 .-REPORT FPS INCORRECT. 

BR 360$ 



CRFPCDO FP11F FLTG PNT PRT C 
TEST # 60 - LDEXP TEST 



6379 
6380 
6381 
6382 
6383 
638A 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
639A 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 

6412 032674 012601 

6413 032676 012700 

6414 032702 170100 

6415 032704 010100 

6416 032706 172410 

6417 032710 012737 

6418 032716 016100 

6419 032722 170100 

6420 032724 010100 

6421 032726 062700 
6422 
6423 
6424 

6425 032734 170204 

6426 032/36 170305 

6427 032740 012700 

6428 032744 170100 

6429 032746 012700 

6430 032752 174010 

6431 032754 010437 

6432 032760 016137 

6433 032766 010537 

6434 032772 016137 

6435 033000 010102 
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SEQUENCE 



032732 176410 



000200 



032732 
000032 



000010 



000200 

033164 

001250 
000034 
001254 
000040 



001236 



001252 
001256 



THIS SUBROUTINE, 1000S. IS USED TO SET UP THE OPERANDS, EXECUTE 
THE LDEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 

PC.1000S 

:AC OPERAND 
.'EXPONENT 
.•EXPECTED RESULT 
.ERROR RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.ERROR FPS. 
.EXPECTED FEC 
.DATA ERROR. 

;FPS ERROR. 
.•RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE LDEXP INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

COMPARED UI TH FPSA IF THIS TOO IS CORRECT 1000S RETURNS CONTROL 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000S 

COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN 1000S WILL RETURN 

TO THE ERROR CALL AT ERR2, OTHERWISE 100CS ITSELF 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

LDEXP IS INCORRECT. THE INCORRECT RESULT IS COMPARED UITH THE 

ANTICIPATED FAILING DATA PATTERN. ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000$ 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000S WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



JSR 


PC. 1000$ 


ACARG: 


.WORD 


X.X.X.X 


EXP: 


.WORD 


X 


RES: 


.WORD 




ERRES: 


.WORD 


X # X ^ X # X 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERFPS: 


.WORD 


X 


FEC: 


.WORD 


X 


ERR1: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







1000S: 



MOV 

MOV 

LDFPS 

MOV 

LDD 

MOV 

MOV 

LDFPS 

MOV 

ADD 



(SP)*, R1 
#200, RO 
RO 

R1.R0 
(RO) .ACO 
#161$,$THP2 
32(R1).R0 
RO 

R1.R0 
«l6.R0 



.-GET A POINTER TO THE ARGUMENTS. 
.-LOAD THE ACO OPERAND. 



;SET UP THE FPS. 



161$: LDEXP (RO),ACO 

STFPS R4 

STST R5 

MOV #200, RO 

LDFPS RO 

MOV #1200$.R0 

STD ACO.(RO) 

MOV R4.$THP7 

MOV 34(R1).$TMP10 

MOV R5,$TMP11 

MOV 40(R1).$TMP12 

MOV R1 ,R2 



:TEST INSTRUCTION. 

;6ET THE FPS. 
;GET THE FEC. 
;GFT THE RESULT. 



CKFPCDO FP11F FLTG PNT PRT C 
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SEOUEiMCE K7 



6456 055002 


010257 


001240 


6457 055006 


062702 


000010 

Www * w 


6458 055012 


011257 


001242 


6459 055016 


062702 


000002 


6440 053022 


010237 


001244 


6441 033026 

6442 055054 


012737 


033164 


012702 


033164 


6445 055040 


010105 




6444 055042 


062705 


000012 


6445 055046 


012700 


00C004 


6446 055052 


022225 




6447 053054 


001014 




6448 033056 


077005 




6449 035060 


020461 


000054 


6450 055064 


001026 




6451 055066 


005761 


000054 


6452 053072 


100005 




6453 033074 


020561 


000040 


6454 033100 


001027 




6455 






6456 033102 


000161 


000050 


6457 






6458 






6459 033106 


012702 


033164 


6460 033112 


010103 




6461 033114 


062703 


000022 


6462 033120 


012700 


000004 


6463 033124 


022223 




6464 033126 


001003 




6465 033130 


077003 




6466 033132 


000161 


000042 


6467 






6468 






6469 033136 






6470 033136 


104301 




6471 033140 


000760 




6472 






6473 






6474 033142 


026104 


000036 


6475 033146 


001002 




6476 033150 


000161 


000046 


6477 033154 






6478 






6479 033154 


104302 




6480 033156 


000751 




6481 






6482 






6485 055160 






6484 






6485 033160 


104303 




6486 033162 


000747 




6487 






6488 






6489 033164 


000000 


000000 


6490 






6491 035174 






033174 


104412 





001246 



nov 

ADD 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
CMP 
BNE 

soe 

CMP 
BNE 
TST 
BPL 
CMP 
BNE 



163S: JMP 



162S: 



R2.$TMP3 

*l6,R2 

(R2)-tTMP4 

*2.R2 

R2-$TMP5 

#1200$.$TMP6 

«1200S,R2 

R1.R3 

#1^,R3 

*4,R0 

(R2)*.(R3)* 

170$ 

R0.162$ 

R4^34(R1) 

17$$ 

54(R1) 

165$ 

R5.40(R1) 
186s 

50(R1) 



:SEE IF THE RESULT WAS CORRECT. 



.•BRANCH IF NOT CORRECT. 

;SEE IF THE FPS WAS CORRECT. 
.•BRANCH IF NOT CORRECT. 



.SEE IF THE FEC WAS CORRECT. 
.•BRANCH IF NOT CORRECT. 

.-RETURN. 



;THE RESULT WAS INCORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 



170$: 



171$: 



MOV 
MOV 
ADD 
MOV 
CMP 
BNE 
SOB 
JMP 



«1200$.R2 
R1-R3 
*22. R3 
*4.R0 

(R2)*.(R3)» 
172$ 
R0.171$ 
42(R1) 



.THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
172$: 

173$: ERROR ^301 ;BAO RES 

BR 163$ 

.SEE IF THE FPS ERROR WAS ANTICIPATED. 
175$: CMP 36(R1),R4 

BNE 176$ 

JMP 46(R1> 

176$: 

.THE FPS WAS NOT ANTICIPATED SO REPORT IT HERE. 



177$: 



ERROR 
BR 



♦302 
163$ 



180$: 

:REPORT FEC INCORRECT. 
181$: ERROR ♦SOS 
BR 163$ 



;BAD FPS 
;BUT EZ8TV8 
;ST 063 



.BAD FEC 



000000 



:DArA BUFFER: 
1200$: .WORD 



0,0.0.0 



360$: 



RSETUP 



;60 INITIALIZE THE FPS AND STACK; AND 



CKFPCDO FP11F FLTG F>NT PRT C 
TEST f 60 - LDEXP TEST 



MACRO 30-OCT-81 11:15 



PAGE 63-1 



SEQUENCE 



SEE IF THE USER HAS EXPRESSED 
THE DESJRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FP11F FLT6 F>NT PRT C HACRO H1113 30-OCT-81 11:15 
TEST « 61 - DESTINATION MODES, MODE 1 (FL-0), TEST 



G 12 
PAGE 64 



SEQUENCE U9 



6A98 





AT71 7A 


(\f\nf\f\L 
UUUUUh 


A775nA 


0*iVV 


ATT'DAA 


A1 '3777 




AT7 'JAit 


A1 57An 


n777ni 


03U 1 




A1 57m 


WWvO 




A7751 A 
U^^C 1 O 


A1 575n 


177777 

\ f f 1 f f 




A77555 


ft77i nx 








U 1 c f Uv 


1055^S 


O jU J 




niP777 




OjUO 


Uj jc JO 


ni 5777 


nxxLnL 


OJUf 




1 7ni nn 




OjUO 




U 1 c r Uv 


075710 

VJJJ 1 V 










Ann 

O J 1 u 


\JjjCjC 


1 70P10 




O J 1 1 


Uj JC J*» 


APAAP7 


077710 


O J 1 C 




nnioi7 

UU 1 V 1 r 




oj I J 




np^7?7 


055510 


U J 1 


\JJJC f v 


001057 






VJJC f C 


057757 

\JCJf C 1 


055512 


O J 1 Q 




0010^0 




7 


UJ JvVc 


ooo&s^ 

V V v*ff J J 




O? 1 O 








O J 1 7 












M7777 
t f f f f f 


1 » r f / # 


OPe 1 


A77710 
Vjjj I w 


\77777 

I f f f f f 


1 r r » » • 


AS?? 








OJc J 








AS?i 




010057 


00124? 


AS?<; 






055510 






104377 






nxxxXL 


000001 

VVVWW t 




O Jt ' 








AS 7ft 








AS7Q 


















nxxxLO 


012757 


102545 


6532 


033346 


013737 


033310 


6533 


033354 


104377 






033356 


000002 




653A 








6535 


033360 


000424 




6536 








6537 








6538 








6539 


033362 


012737 




6540 


033370 


013737 


033312 


6541 


033376 


104377 






033400 


000003 




6542 








6543 


033402 


000413 





001110 



001236 
000004 



102345 
y77777 



}77777 



001240 



001240 
001242 



001240 
001242 



.S8TTL TEST # 61 - DESTINATION MODES. MODE 1 (FL=0), TEST 
•TEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 

* THIS IS A TEST OF DESTINATION MODE 1 USING 

• THE STFPS INSTRUCTION 



*************************************************************** 

TST61 : SCOPE 

; SET UP THE LOOP ON ERROR ADDRESS. 

:SET UP THE DATA BUFFER. 



200S 
1$: 



220$: 



MOV 
MOV 
MOV 
MOV 
SOB 
MOV 
MOV 
MOV 
LDFPS 
MOV 

STFPS 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

BR 



#200$.SLPERR 
#210S,R0 
#6,R1 
#-1.(R0)* 
Rl 

#162345, RO 
#220$,$THP2 

#230$,ERRVECT ;SET UP FOR TRAPS TO 4. 



;DPM002 



RO 

#240$, RO 

(RO) 

R0.#240$ 
256$ 

240$,#102345 
260$ 

240$*2,#-1 

270$ 

280$ 



.SET UP FPS. 



TEST INSTRUCTION. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS RESULT CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



;TEST DATA BUFFER: 
§10$: .WORD -1,-1 
240$: .WORD -1,-1,-1,-1 

: REPORT RO INCORRECT. 
250$: MOV R0,$TMP4 

MOV #240$,$TMP3 

ERROR +377 

.WORD 1 



BR 



280$ 



:R0 BAD (BUT 
; FDST)X 



;REPORT RESULT INCORRECT. 
§60$: MOV #102345.$TMP3 

MOV 240$,$TMP4 

ERROR ^377 

.WORD 2 



ST 634 



BR 



280$ 



:BAD DATA 



: REPORT RESULT INCORRECT. 
§70$: MOV #-1.$TMP3 

MOV 240i*2,$TMP4 

ERROR +377 

.WORD 3 

BR 280$ 



;(BUT 6R7.FL) 
;ST 357 TO 416 



CKFPCDO FPIIF FLTG PNT PRT C MACRO H1113 30-0CT-81 11:15 
TEST # 61 - DESTINATION BODES. BODE 1 (FLsQ), TEST 



H 12 
PAGE 64-1 



SEQUENCE 15C 



6544 






6545 






6546 






6547 






6548 






6549 033404 


011604 


033254 


6550 033406 


020427 


6551 033412 


001402 


051774 


6552 033414 


000137 


6553 




001236 


6554 033420 


011637 


6555 033424 


022626 




6556 033426 


104377 




033430 


000004 




6557 






6558 






6559 033432 






033432 


104412 





;INT0 417 



IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
DURING EXECUTION OF THE fPP INSTRUCTION BEING TESTED, IF NO^ GO 
.TO THE SPURIOUS TRAP TO 4 HANDLER. 
530$: «0V (SP).R4 

W R4.#220S*2 
BEQ 2S 
JNP CPSPUR 



2%: 



280$: 



cnp 

ERROR 
.WORD 



RSETUP 



(SP).$THP2 

(SP)*.(SP)* 

♦377 

4 



.(BUT FDST)* ST634 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USE^ TYPED CONTROL G?). 



CRFPCOO FP1U FLTG PNT PRT C HACRO H1113 30-0CT-81 11:15 
TEST 9 62 - DESTINATION MODES. MODE 2 (fl=0). TEST 



I 12 
PAGE 65 



SEQUENCE 151 



6560 





033434 


000004 




6S61 


033456 


012737 


033444 


6562 


033444 


012700 


033542 


6563 


033450 


012701 


000006 


656* 


035454 


012720 


177777 


6565 


033460 


A 4 A9 

077103 




6566 


033462 


A 4 ? A A 

012700 


4 A r / 4 ^ 

10541 2 


6567 


033466 


A 4 7 V ? 

012737 


AT T C 1 A 

033510 


656a 


033474 


A 4 ^ ^ V ^ 

012737 


033642 


6569 


033502 


1 70100 




6570 


033504 


A 4 T A A 

012700 


033546 


6571 








6572 


033510 


4 ^A *> ^ A 

1 70220 




6573 


033512 


A ^ A A "7 

020027 


ATTC C A 

033550 


6574 


033516 


A A 4 A 4 ^ 

001017 




6575 


033520 


023727 


ATTC / Z. 

033546 


6576 


033526 


AA'1 A^T 

001023 




6577 


033530 


ATT "^T 7 

023727 


AT7C CA 

033330 


6578 


/W VC 

033536 


AA1 ATA 
001 030 




6579 


033540 


000453 




6580 








6581 






1 Jffff 


6582 


033542 


\77777 


6583 


033546 


1 77777 


Ifffff 


6584 








6585 








^ r A^ 

6586 


033556 


Ai AAT7 


AAi "^y ^ 

001242 


6587 


03336^ 


Ai ^*7T*7 




6588 


0335^0 


i A/ T7*7 






ATTC T^ 

033572 


AAAAAC 

000005 




6589 








6590 


ATTC T/ 

033574 


AAA/ TC 

000435 




6591 








6592 

X CAT 

6593 


033576 


A< 


1 AC/ 1 ^ 


o jy*» 




U 1 Jf jt 


n^Y^4/> 


6595 


033612 


104377 






033614 


000006 




6596 








6597 


033616 


000424 




6598 








6599 








6600 








6601 


033620 


012737 


\71777 


6602 


033626 


013737 


033550 


6603 


033634 


104377 






033636 


000007 




6604 








6605 


033640 


000413 





001110 



001236 
000004 



105412 
U7777 



\77777 



001240 



001240 
001242 



001240 
001242 



.SSTTL TEST f 62 - DESTINATION NODES, NODE 2 (FL-0). TEST 



DESTINATION NODES, NODE 2 (FL=0), TEST 



•TEST 62 

* THIS IS A TEST OF DESTINATION NODE 2 USING 

• THE STFPS INSTRUCTION 



ST62: 
200S: 
IS: 



220S: 



SCOPE 

NOV #200S,$LPERR 

NOV «210$,R0 

NOV #6.R1 

NOV *-1,(R0)* 

SOe R1.1t 

NOV #105412. RO 

NOV *220$.ITNP2 

NOV #230S.ERRVECT 

LDFPS RO 

NOV #240$. RO 

STFPS (RO)* 

CNP R0.#240$*2 

BNE 250S 

CNP 240S. #105412 

BNE 260$ 

CNP 2401*2. #-1 

BNE 270t 

BR ?80S 



;SET UP THE LOOP ON ERROR ADDRESS. 
:SET UP THE DATA BUFFER. 



;SET UP FOR TRAPS TO VECTOR 4. 
.-SET UP FPS. 



;TEST INSTRUCTION. 
;IS RO CORRECT? 
.BRANCH IF NOT CORRECT. 
;IS THE RESULT CORRECT? 
.•BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT: 
.-BRANCH IF NOT CORRECT. 



:DPN002 



:TEST DATA BUFFER: 
210$: .WORD -1.-1 
240$: .WORD -1.-1.-1,-1 

:REPORT RO INCORRECT. 
^50$: NOV R0.$TNP4 

NOV #240$*2.$TNP3 

ERRUS +377 

.WORD 5 



BR 



280$ 



;R0 BAD (BUT 
FDST)X 



:REPORT RESULT INCORRECT. 
^60$: NOV #105412.$TNP3 



ST 634 



NOV 
ERROR 
.WORD 

BR 



£<»0S.STNP4 
♦377 
6 

280$ 



:BAD DATA 



•REPORT RESULT INCORRECT. 
570$: NOV #-1.$TNP3 

NOV 240$*2.$TNP4 

ERROR +377 

.WORD 7 

BR 280$ 



.(BUT GR7.FL) 
;ST 357 TO 416 



CKFPCDO fPIIF FLTG PNT PHI C MACRO 
TEST » 62 ' DESTINATION NODES, NODE 2 



mi 13 30-OCT 
(FL=0). TEST 



-81 11:15 PAGE 



J 12 
65-1 



SEQUENCE 15? 



6606 






6607 






6606 






6609 






6610 






66M 0556A? 


011604 




6612 0336^4 


020427 


033512 


6613 033650 


00U02 


051774 


66U 033652 


000137 


6615 






6616 033656 


011637 


001236 


6617 033662 


022626 




6618 03366A 


104377 




033666 


000010 




6619 






6620 






6621 033670 
073670 






104412 





;1NT0 417 



17 A TRAP TO VECTOR 4 OCCURS CO«E HERE TO SEE IF THE TRAP OCCURRED 
DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
JO THE SPURIOUS TRAP TO 4 HANDLER. 
^30S: FWV (SP)-R4 

CnP R4.«220S»2 
BEQ 2% 
J«P CPSPUR 



2$: 



280S: 



MOV 
CMP 
ERROR 
.WORD 



RSETUP 



(SP).STMP2 

(SP)*,(SP)» 

♦377 

10 



.(BUT FDST)* ST634 



AND 



GO INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE T><e SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO fPllf FLTG PNT PRT C MACRO «in3 30-OCT-81 11:15 
TEST « 63 - DESTINATION NODES. NODE 4 (FL^O), TEST 



IC 1? 
PAGE 66 



SEQUENCE 153 



6622 



.S8TTL TEST f 63 - DESTINATION MODES. NODE 4 (FL=0). TEST 

•iTEST 63 

THI 
THE 



DESTINATION NODES. NODE 4 (FL=0>. TEST 



S IS A TEST OF DESTINATION NODE 4 USING 
STFPS INSTRUCTION 



6623 
6624 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
..638 
6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 

6651 
6652 
6653 
6654 
6655 
6656 
6657 

6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 

6666 
6667 



033672 
033674 
033702 
033706 
033712 
033716 
033720 
033724 
033732 
033740 
033742 

033746 
033750 
033754 
033756 
033764 
033766 
033774 
033776 



034000 
034004 



034014 
034020 
034026 
034030 



034034 
034042 
034050 
034052 



034056 
03406^ 
0340/2 
034074 



000004 
012737 
012700 
012701 
012720 
077103 
012700 
012737 
012737 
170100 
012700 

170240 
020027 
001017 
023727 
001023 
023727 
001030 
000453 



y77777 
^77777 



010037 
012737 
104377 
000011 



034032 000435 



012737 
013737 
?04377 
000012 



034054 000424 



012737 
013737 
104377 
000013 



033702 
034000 
000006 
^77777 



001110 



105555 

033746 001236 
034100 000004 

034006 
034004 

034004 105555 
034006 ^77777 



}77777 

\77777 ^77777 



001242 

034::; 001240 



105555 001240 
034004 001242 



U7777 
034006 



001240 
001242 



TST63: 
200s : 
1$: 



220$: 



SCOPE 

NOV #200$,SLPERR 

NOV #210S,R0 

NOV #6.R1 

NOV #-1,(R0)* 

SOB R1.1S 

NOV #105555, RO 

NOV #220S.STNP2 

NOV f230S,ERRVECT 

LDFPS RO 

NOV #240t^2.R0 

STFPS -(RO) 

CNP R0.#240S 

BNE 256s 

CNP 240S.#1055SS 

BNE 260S 

CNP 240S*2.#-1 

BNE 270$ 

BR 280$ 



;TEST DATA BUFFER: 
^10$: .WORD -1.-1 
240$: .UORD -1.-1,-1.-1 

.•REPORT RO INCORRECT. 
250$: NOV R0,$TNP4 

NOV #240$.$TNP3 

ERROR ^377 

.WORD 11 



BR 



280S 



REPORT RESULT INCORRECT 



^60$ 



034076 000413 



NOV #105555. $TNP3 

NOV 240$.$TNP4 

ERROR ^377 

.yORD 12 

BR 280$ 



:REPORT RESULT INCORRECT. 
570$: NOV #-1.$TNP3 

NOV 240i*2.$TNP4 

ERROR +377 

.WORD 13 

BR 280$ 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



.SET UP FOR TRAPS TO VECTOR 4. 
.SET UP FPS. 



TEST INSTRUCTION. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORPFCT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



;DPN002 



:R0 BAD (BUT 
FDST)X 



ST 634 



;BAD DATA 



;(BUT 6R7.FL) 
;ST 357 TO 416 



CKFPCOC FPIir FLTC PNT PRT C HACRO 
TEST # 65 - DESTINATION NODES. MODE <• 



«ni3 

(FL=0) 



30-OCT 
, TEST 



•81 11:15 PAGE 



L ia 

66-1 



SEQUENCE 15<, 



6668 






6669 






6670 






6671 






6672 






6673 


034100 


011604 


6674 


054102 


020427 


6675 


054106 


001402 


6676 


034110 


000137 


6677 






6678 


034114 


011637 


6679 


054120 


022626 


6680 05A122 


104377 




054124 


000014 


6681 






6682 


054126 


104412 




034126 



.INTO 417 



033750 
051774 
001236 



IF A TRAP TO VECTOR 4 OCCURS CO«E HERE TO SEE IF THE TRAP OCCURRED 
DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED. IF NOT 60 
.TO THE SPURIOUS TRAP TO 4 HANDLER. 
J30$: «0V (SP).R4 

CHP R4.#^20$»2 
BEG 2$ 
JHP CPSPUR 



2S: 



280$: 



nov 

CHP 

ERROR 
.WORD 



RSETUP 



(SP).$THP2 
(SP)*.(SP)» 
♦ 577 
14 



;CBUT FDST)» ST654 

GO INITIALIZE THE FFS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?>. 



CKfPCDO fPilf FLTG PNT PRT C KACRO n^^M 30-OCT-81 11:15 
TEST » 64 • DESTINATION NODES, NODE 3 (FL=0), TEST 



n 12 

PAGE 67 



SEOUENCf TiS 



6685 



034130 


000004 




6684 034132 


012737 


034140 


6685 034140 


012700 


034242 


6686 034144 


012701 


000010 


6687 034150 


012720 


y77777 


6688 034154 


077103 




6689 034156 


012700 


106653 


6690 034162 


012737 


034210 


6691 03417") 


012737 


034346 


6692 034176 


170100 




6693 034200 


012700 


034256 


6694 034204 


012710 


034246 


6695 






6696 034210 


170230 




6697 034212 


020027 


034260 


6698 034216 


001021 




6699 034220 


023727 


034246 


6700 034226 


001025 




6701 034230 


023727 


034256 


6702 034236 


001032 




6703 034240 


000455 




6704 






6705 






6706 034242 


U7777 


-[77777 


6707 034246 


\77777 


\77777 


6708 034256 


-[77777 


\77777 


6709 






6710 






6711 034262 


010037 




6712 034266 


012737 


034260 


6713 034274 


104377 




034276 


000015 




6714 






6715 034300 


000435 




6716 






6717 






6718 034302 


012737 


106653 


6719 034310 


013737 


034246 


6720 034316 


104377 




034320 


000016 




6721 






6722 034322 


000424 




6723 






6724 






6725 






6726 034324 


012737 


034256 


6727 034332 


013737 


034250 


6728 034340 


104377 




034342 


000017 





001110 



001236 
000004 



106653 
034246 



-\77777 



001240 



001240 
001242 



001240 
001242 



.S8TTL TEST # 64 - DESTIWATJON NODES. NODE 3 (FL=0). TES: 
•TEST 64 DESTINATION NODES, NODE 3 (FL^O), TEST 

* THIS IS A TEST OF DESTINATION NODE 3 USING 

• THE STFPS INSTRUCTION 



TST64: 

200$: 

IS: 



SCOPE 

NOV «200$,$LPERR 

NOV #210$.R0 

NOV #10. R1 

NOV #-1,(R0)» 

SOB R1.1$ 

NOV #106653, RO 

NOV #220$.$TNP2 

NOV #230$.ERRVECT 

LDFPS RO 

NOV #240S,R0 

NOV «250S,(R0} 

STFPS a(RO)* 

CMP R0,#240$*2 

BNE 260$ 

CNP 250$, #106653 

BNE 270$ 

CNP 240$,#250$ 

BNE 280$ 

BR 290$ 



;TEST DATA BUFFER: 
210$: .WORD -1.-1 
250$: .WORD -1.-1.-1.-1 
240$: .WORD -1.-1 



220$: 



REPORT RO INCORRECT. 



^60$: 



NOV R0.$TNP4 

NOV #240$^2,$TNP3 

ERROR +377 

.WORD 15 

BR 290$ 



REPORT RESULT INCORRECT. 



^70$ 



NOV 
NOV 
ERROR 
.WORD 

BR 



:REPORT RESULT 
^80$: NOV 
NOV 
ERROR 
.WORD 



#1 06653, $TNP3 
250$,$TNP4 

♦377 
16 

290$ 



INCORRECT. 
#240$.$TNP3 
250$*2,$TNP4 

♦377 
17 



;SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP THE DATA BUFFER. 



.SET UP FOR TRAPS TO VECTOR 4. 
.-SET UP FPS. 



TEST INSTRUCTION. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



;DPH002 



;Re BAD (BUT 
FDST)X 



ST 634 



:BAD DATA 



;(8UT FDST) 



CKFPCDO FPU I FLTG PNT PRT C MACRO HI 115 50-0CT-81 11:15 
TEST # 64 - DESTlfiiATION MODES. MODE 3 (FL=0). TEST 



N 12 
PAGE 67-1 



SEQUENCE 1 56 



6729 
6750 
6751 
6752 
6753 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
6741 
6742 

6743 
6744 



034344 000413 



C 34 546 
034350 
034354 
034356 

034'62 
054566 
054370 
054572 

034374 
034374 



BR 



290$ 



020427 
001402 
000157 


054212 
051774 


^30$: 


MOV 
CMP 
BEQ 
JMP 


011637 
022626 
104377 
000020 


001236 


2$: 


MOV 
CMP 
ERROR 
.WORD 


104412 




290$: 


RSETUP 



•IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
•DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
'■rn TMF <;PllftlOlJS TRAP TO 4 HANDLER. 
(SP).R4 
R4.#^20$*2 
2$ 

CPSPUR 



(SP).$TMP2 

(SP)»,(SP)* 

♦377 

20 



;(8UT FDST)* ST634 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



Ck'PCDO FPIIf FLTG PNT PRT C HACR0mil3 30-OCT-81 11:15 
leST t 65 - DESTINATION H006S. HOOC 5 (FL=0). TEST 



B 13 
PACE 68 



SEQUENCE 157 



67A6 
67A7 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 

6776 
6777 
6778 
6779 
6780 
6781 
6782 

6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 



034376 
034400 
034406 
034412 
034416 
034422 
034424 
034430 
034436 
034444 
034446 
034452 

034460 
034462 
034466 
034470 
034476 
034 SOO 
034506 
034510 



034512 
034516 
C34526 



034532 
034536 
034544 
034546 



034552 
034560 
034566 
034570 



0C0004 
012737 
012700 
012701 
012720 
077103 
012700 
012737 
012737 
170100 
012700 
012760 

170250 
020027 
001021 
023727 
001025 
023727 
001032 
000455 



m777 
M7777 



010037 
012737 
104377 
000021 



034550 000435 



012717 
013737 
lQi*Z77 
000022 



034572 000424 



034406 
034512 
000006 
177777 

004301 
034460 
034616 

034530 
034516 



034526 
034516 
034526 



177777 
177777 
177777 



001242 
034526 



004301 
034516 



001110 



001236 
000004 



U777fi 

004301 
034516 

17777" 
001240 



001240 
001242 



S9TTL TEST # 65 - DESTINATION NODES, NODE 5 (FL«0), T|$T 
iTEST*6r DESTINATION NODES. NODE 5 (FL«0>, TEST 



* THIS IS A TEST OF DESTINATION NODE 5 USING 

• THE STFPS INSTRUCTION 
« 



TST65: 

200$: 

1$: 



220$: 



SCOPE 

NOV #200$,$LPERR 

NOV #210$. RO 

NOV #6,R1 

NOV *-1.(R0)» 

SOS R1.1$ 

NOV *004301.RO 

NOV #220$.$TNP2 

NOV «230$.ERRVECT 

LDFPS RO 

NOV *240$*2.R0 

NOV #250$, -5 (RO) 

STFPS a-(RO) 

CNP R0-#240$ 

BNE 260$ 

CNP 250$. #004 301 

BNE 270$ 

CNP ^40$. #250$ 

BNE 280$ 

BR 290$ 



;TEST DATA BUFFER: 
^10$: .WORD -1.-1 
250$: .WORD -1.-1.-1.-1 
240$: .WORD -1.-1 

:REPORT RO INCORRECT. 
^60$: N0»' R0.$TNP4 

NOV #240$.$TNP3 

ERROR ^377 

.WORD 21 



BR 



290$ 



•REPORT RESULT INCORRECT. 
^70$: NOV #004301 ,$TNP3 

NOV 250$.$TNP4 

ERROR ^377 

.WORD 22 

BR 290$ 



•REPORT RESULT INCORRECT. 

034574 012737 034526 001240 ^80$: NOV #240$.$TNP3 
034602 013737 034520 001242 NOV 250$*?,$TNP4 
034610 104377 ERROR ♦377 
034612 000023 .WORD 23 



.SET UP THE LOOP ON ERROR ADDRESS. 
.•SET UP THE DATA BUFFER. 



;SET UP FOR TRAPS TO VECTOR 4, 
;SET UP FPS. 



TEST INSTRUCTION. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



:DPN002 



:R0 BAD (BUT 
; FDSDX 



ST 634 



;BAD DATA 



;BUT FDST) 



CKFPCDO FPIII FLTG PNT PRT C MACRO M1113 30-0CT-81 11:15 
TEST # 65 - DESTINATION MODES. MODE 5 (FL=0), TEST 



C 13 
PAGE 68-1 



SEQUENCE 158 



6791 








6792 


034614 


000413 




6793 








6794 








6795 








6796 








6797 








6798 


034616 


011604 




6799 


034620 


020427 


034462 


6800 


034624 


001402 




6801 
6802 


034626 


000137 


051774 








6803 


03463: 


011637 


001236 


6804 


034636 


022626 




6805 


034640 
034642 


104377 
000024 




6806 








6807 


034644 
034644 


104412 





BR 



290$ 



(BUT GR7.FL) 
ST 357 TO 416 
INTO 417 



;IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
.•DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED. IF NOT GO 
:T0 THE SPURIOUS TRAP TO 4 HANDLER. 
530$: MOV (SP).R4 

CMP R4. #2205*2 

BEQ 2S 

JMP CPSPUR 



2$: 



290$: 



MOV 
CMP 
ERROR 
.WORD 



RSETUP 



(SP).$TMP2 

(SP)*,<SP)* 

♦377 

24 



;<BUT FDST)* ST634 

60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCDO FP11F FLTG F»NT PRT C HACRO ni113 30-0CT-81 11:15 
TEST f 66 - DESTINATION WOES, »WOE 6 (FL=0). TEST 



0 13 
PAGE 49 



SEQUENCE 159 



6808 



.S8TTL TEST # 66 - DESTINATION NODES. NODE 6 {FL=0). TEST 

jiTESrjr***** DESTINATION MODES. MODE 6 (FL=0). TEST 

THIS IS A TEST OF DESTINATION NODE 6 USING 
THE STFPS INSTRUCTION 



6809 
6810 
6811 
6812 
6813 
68U 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
682A 
6825 
6826 
6827 
6828 
6829 
6830 
6831 
6832 
6833 
6834 
6835 
6836 
6837 
6838 
6839 
6840 

6841 
6842 
6843 
6844 
6845 
6846 
6847 

6848 
6849 
6850 
6851 
6852 
6853 
6854 



034646 000004 



034650 
034656 
034662 
034666 
034672 
034674 
034700 
034 706 
034714 
034716 
034720 

034724 
034730 
034734 
034736 
034742 
034744 
034752 
034754 
034762 
034764 



034766 
034772 



035002 
035006 
035014 
035016 



035022 
035030 
035036 
035040 



012767 
012700 
012701 
012720 
077103 
012700 
012767 
012767 
170100 
005001 
012700 

1 70260 
020127 
001070 
020027 
001017 
026727 
001023 
026727 
001030 
000456 



-[77777 
}77777 



010067 
012767 
104377 
000025 



035020 000440 



012767 
016767 
104377 
000026 



034656 
034766 
000006 
^77777 

10^514 
034724 
035066 



027571 

005201 
000000 

027571 

000022 

000014 



\77777 
}77777 



144234 
027571 



102534 
177736 



035042 000427 



035044 012767 ^77777 
035052 016767 177716 



144232 



144330 
143070 



TST66: 



200S: 



1$: 



102514 
y77777 



y77777 
144224 



144210 
144204 



SCOPE 

.DSABL ANA 

NOV #200S.SLPERR 

NOV #210S.R0 

NOV #6,R1 

NOV #-1j(R0)* 

SOB R1.1$ 

NOV *l62514.R0 

NOV #220f.$TNP2 

NOV #230$«ERRVECT 

LDFPS RO 

CLR R1 

NOV #240$-5201 .RO 

STFPS 5201 (RO) 

CNP R1.#0 

BNE 256s 

CNP R0.#240$-5201 

BNE 260S 

CNP 240$. #1025 14 

BNE 270S 

CNP 240$*2,*-l 

BNE 280S 

BR 290$ 



:TEST DATA BUFFER: 
210$: .yORD -1.-1 
240$: .WORD -1.-1.-1.-1 

REPORT RO INCORRECT. 



220$: 



DISABLE NODE 6 TO NODE 3 CONVERSIONS 
SET UP THE LOOP ON ERROR ^.)DRESS. 
SET UP THE DATA BUFFER. 



.-SET UP FOR TRAPS TO VECTOR 4. 
;SET UP FPS. 



.•TEST INSTRUCTION. 
WAS PC CORRECT AFTER EXECUTION? 
BRANCH IF NOT CORRECT. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



;DPN002 



^60$: 



NOV R0.$TNP4 

NOV *240$-5201.$TNP3 

ERROR +377 

.WORD 25 

BR 290$ 



REPORT RESULT INCORRECT. 



;R0 BAD 



^70$ 



144166 
144162 



NOV *102534.$TNP3 

NOV 240$.$TNP4 

ERROR +377 

.WORD 26 

BR 290$ 



:REPORT RESULT INCORRECT. 
^80$: NOV *-1.$TNP3 

NOV 240i^2.$TNP4 



:BAD DATA 



CKFPCOO FPIU FLTG PNT PRT C HACRO «1113 30-OCT-81 11:15 
TEST # 66 - DESTINATION HODES. WOE 6 (FL=0). TEST 



E 13 
PAGE 69-1 



SEQUENCE 160 



6855 


035060 


104377 




035062 


000027 


6856 






6857 


035064 


000416 


6858 






6859 






6860 






6861 






6862 






6863 


035066 


011604 


6864 


035070 


020427 


6865 


035074 


001402 


6866 


035076 


000167 


6867 






6868 


035102 


011667 


6869 


035106 


022626 


6870 


035110 


104377 




035112 


000030 


6871 






6872 


035114 


000402 


6873 






6874 






6875 


035116 




6876 


035116 


104377 




035120 


000031 


6877 






6878 


035122 






035122 


104412 



ERROR 
.yORD 

BR 



♦377 
27 

290S 



(BUT GR7,fL) 
ST 357 TO 416 
INTO 417 



034726 
014672 
144130 



JF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE 
DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED. 
.TO THE SPURIOUS TRAP TO 4 HANDLER. 
530$: HOV (SP)-R4 

C«P R4,*220S»2 
BEQ 2$ 
J«P CPSPUR 



TRAP OCCURRED 
IF NOT 60 



2S: 



nov 

C«P 

ERROR 

.WORD 

BR 



(SP).$TMP2 

(SP)*.(SP)* 

♦377 

30 

290$ 



;(8UT FDST)* ST634 



;REP0RT 
^50$: 



290$: 



PC NOT INCREMENTED BY 2 DURING EXECUTION. 



ERROR 
.WORD 



RSETUP 



♦377 
31 



;PC NOT INCREMENTED Br 2 



6879 



.ENABL AMA 



AND 



60 INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 
RESET nODE 6 TO MODE 3 CONVERSIONS 



F 13 



CMPCOO FP11F FLTG F>NT PRT C BACRO H1 113 30-OCT-81 11:15 PAGE 70 
T£ST # 67 - DESTINATION MODES, MODE 7 (FL=0). TEST 



SEQUENCE 161 



6880 



.S8TTL TEST # 67 - DESTINATION MODES. MODE 7 (FLaO), TEST 

•iTEST 67 DESTINATION MODES. MODE 7 (FL=0). TEST 

THIS IS A TEST OF DESTINATION MODE 7 USING 

THE STFPS INSTRUCTION 



6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
6911 
6912 
6913 

6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 

6922 
6923 
6924 
6925 
6926 



035124 
035126 
035134 
035140 
035144 
035150 
035152 
035156 
035164 
035172 
035174 
035176 
035202 

035210 
035214 
035220 
035222 
035226 
035230 
035236 
035240 
035246 
035250 



035252 
035256 
035266 



035272 
035276 
035304 
035306 



000004 
012737 
012700 
012701 
012720 
077103 
012700 
012737 
012737 
170100 
005001 
012700 
012760 

170270 
022701 
001072 
020027 
001021 
023727 
001025 
023727 
001032 
000460 



-[77777 
"[77777 



010037 
012737 
104377 
000032 



035310 000440 



035312 
035320 
035326 
035330 



012737 
013737 
104377 
000033 



035332 000427 



035134 
035252 
000010 
^77777 

103747 
035210 
035356 



030065 
035256 

005201 
000000 

030065 

035256 

035260 



y77777 
-[77777 
"[77777 



030065 



103747 
035256 



001110 



001236 
000004 



005201 



TST67: SCOPE 
MOV 

200$: MOV 
MOV 

1$: MOV 
SOB 
MOV 
MOV 
MOV 
LDFPS 
CLR 
MOV 
MOV 



220S: 



103747 
"[77777 



\77777 



001240 



STFPS 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

BR 



«200S,$LPERR 

«210$,RO 

#10. R1 

#-1.(R0)* 

Rl-lf 

#103747. RO 

#220$,$TMP2 

#230$.ERRVECT 

KO 

R1 

#240S-5201.R0 
#250$,5201(R0} 

95201 (RO) 

#0-R1 

26d$ 

R0.#240f-5201 
270$ 

250$.#103747 
280$ 

250$*2.#-1 

290$ 

300$ 



TEST DATA BUFFER: 



^10$ 
250$ 
240$ 



.WORD 
.WORD 
.WORD 



-1.-1 
-1.-1.-1,-1 
-1.-1 



REPORT RO INCORRECT. 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 



.SET UP FOR TRAPS TO VECTOR 4. 
;SET UP FPS. 



;TEST INSTRUCTION. 
WAS PC CORRECT AFTER EXECUTION? 
BRANCH IF NOT CORRECT. 
IS RO CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 
IS THE RESULT CORRECT? 
BRANCH IF NOT CORRECT. 



:DPM002 



^70$: MOV 
MOV 
ERROR 
.WORD 

BR 



001240 
001242 



^80$ 



REPORT RESULT 
MOV 
MOV 
ERROR 
.WORD 

BR 



R0.$TMP4 
#240$-5201.$TMP3 

♦377 
32 

300$ 



INCORRECT. 
#103747. $TMP3 
250$,$TMP4 
♦377 
33 

300$ 



;R0 BAD 



;BAD DATA 



; REPORT RESULT INCORRECT. 



CKFPCDO FP11F FLTG PNT PRT C HACRO W1113 30-OCT-81 11:15 
TEST t 67 - DESTINATION MODES. MODE 7 (FL=0). TEST 



6 13 
PAGE 70-1 



SEQUENCE 162 



6927 


055334 


Ai '^^TT 

012757 


6928 


035342 


A4 T 7TT 

01373f 


6929 


035350 


1 Ay T 7*7 




035352 


AAAATy 

000034 


6930 






6931 


035354 


AAA /IX 

000416 


6932 






6933 






6934 






6935 






6936 






^ ft 

6937 


035356 


Ail A/ 

on 604 


£ ft90 

6938 


AV r A 

035360 


A*^Ay ^7 

020427 


6939 


ATC / 


AA1 / A*5 

00 I40£ 


£ ft/ A 

6940 


ATC TZ.^ 

035366 


AAA1 T7 
0001 3^ 


^ ft i 4 

6941 


035372 


A1 1 

0 1 lo37 


z.fty O 

694 ? 


035376 


02c626 


6943 


ATC/ AA 

035400 


1 04 3 f f 




ATC / A1 

035402 


AAAATC 

000U35 


^ ft/ / 

6944 






69A5 


ATcy Ay 
035404 


AAAy A^ 

0004U£ 


6 th 6 












6948 


ATCy A^ 

035406 












035410 


000036 


6949 






6950 






6951 


035412 






035412 


104412 



Mini 

035260 



001240 290$: MOV #-1.$TMP3 

001242 MOV 250$*2.$TMP4 

ERROR +377 

.WORD 34 

BR 300$ 



;{8UT GR7,FL) 
;ST 357 TO 416 
;INTO 417 



IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
TO THE SPURIOUS TRAP TO 4 HANDLER. 



035212 

051774 
001236 



^30$ 



2$: 



MOV 
CMP 
BEQ 
JMP 
MOV 
CMP 
ERROR 
.WORD 

BR 



(SP).R4 
R4.«220t«2 
2$ 

CPSPUR 

(SP),$THP2 

(SP)*.(SP)* 

*377 

35 

300$ 



;(BUT FSDT)* ST634 



; RE PORT 
^60$: 



300$: 



PC NOT INCREMENTED BY 2 DURING EXECUTION, 



ERROR 
.WORD 



RSETUP 



♦377 
36 



;PC NOT 

: INCREMENTED 



AND 



60 INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FP11F FLTG PNT PRT C 
TEST 0 70 - DESTINATION WOES. 

6958 



MACRO mil 3 30-OCT-81 11:15 
NODE 2 (FL=1), TEST 



H 13 
PAGE 71 



SEQUENCE 163 



6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
0974 
6975 

6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 



035414 
035416 
035424 
035430 
035432 
035436 
035440 
035446 



035454 
035460 



035462 
035466 
035474 
035476 



035502 
035512 
035514 

035522 
035522 



000004 
012737 
012700 
170100 
012700 
172410 
012737 
012700 



035452 175420 



020027 
001420 



010037 
012737 
104377 
000037 



035500 000410 



000000 
}?7777 
}77777 



104412 



035424 
000300 

035502 

035452 
035514 



035520 



001242 
035520 



000000 
^77777 



001110 



001236 



001240 



000000 
\77777 



S8TTL TEST * 70 - DESTINATION MODES. MODE 2 (FL«1). TEST^ 
•TESr^O*** DESTINATION H0DES. NODE 2 (FL*1). TEST 



* THIS IS A TEST OF DESTINATION NODE 

* 2 USING STCOL UJTH REGISTER 0 



TST70: SCOPE 

MOV #200S.$LPERR 

200$: HOV #300. RO 

LDF PS RO 

MOV #210S.R0 

LDD (RO) .ACO 

MOV #220$.$THP2 

MOV #230$. RO 

220$: STCDL ACO.CRO)* 



CMP 
BEQ 



R0.#2i0$«4 
246$ 



.REPORT RO INCORRECT. 

MOV R04$TMP4 
HOV #250$*4.$TMP5 
ERROR +377 
.WORD 37 



BR 240$ 
TEST DATA BUFFER: 

.WORD 0.0,0.0 
-1 

.yoRO -1.-1.-1 



Jio$ 

230$ 
240$ 



RSETUP 



;SET UP THE LOOP ON ERROR ADDRESS. 
.SET UP FPS. 

;SET UP THE ACO OPERAND. 



.-TEST INSTRUCTION. 

;IS RO CORRECT? 
.•BRANCH IF CORRECT. 



:DPM002 



:R0 NOT INCR BY 4 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKfPCDO FPlIf FLTG PNT PRT C 
TEST « 71 - DESTINATION MODES. 

6990 



pucRomii3 30-OCT-81 n:is page 

MODE 4 (FL=1). TEST 



SEUUENCE 164 



03552A 

6991 035526 

6992 035534 

6993 035540 

6994 035542 

6995 035546 

6996 035550 

6997 035556 
6998 

6999 035562 
7000 

7001 035564 

7002 035570 
7003 

7004 

7005 035572 

7006 035576 

7007 035604 
035606 

7008 

7009 035610 
7010 

7011 035612 

7012 035622 

7013 035624 
7014 

7015 035632 
035632 



000004 
012737 
012700 
170100 
012700 
172410 
012737 
012700 

175440 

020027 
001420 



010037 
012737 
104377 
000040 

000410 

000000 
M7177 
y77771 



104412 



035534 
000300 

035612 

035562 
035630 



035624 



001242 
035624 



000000 
^77777 



oonio 



001236 



001240 



000000 
y77777 



S8TTL TEST « 71 - DESTINATION HODES. NODE 4 (PL=1). TEST 
iTES?'?! DESTINATION NODES. NODE 4 (FL»1). TEST 

• THIS IS A TEST OF DESTINATION NODE 

• 4 USING STCDL WITH REGISTER 0 



TST71 : SCOPE 

NOV «200S.SLPERR 

200S: NOV #300. RO 

LDFPS RO 

NOV #210S.R0 

LDD (RO).ACO 

NOV #220$.$TNP2 

NOV «230S^4.RO 

220$: STCDL ACO,-(RO) 



CNP 
BEQ 



R0./r230S 
240S 



.•REPORT RO INCORRECT. 

NOV R0.$TNP4 
NOV «230S.STNP3 
ERROR +377 
.WORD 40 



BR 240S 
TEST DATA BUFFER: 

.WORD 0.0.0.0 
-1 

.WORD -1.-1.-1 



^10$ 
230S 
240$ 



RSETUP 



;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP FPS. 

.-SET UP THE ACO OPERAND. 



.-TEST INSTRUCTION. 
;IS RO rORRECT? 



;DPN002 



.RO NOT DECR BY 4 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPCOO FPIIF FLTG f»NT PRT C HACRO N1113 
TEST • 72 - STCDI AND STCOL TEST 



7025 



30-0CT-81 11:15 PAGE 
S8TTL 



SEQUENCE 165 



TEST # 72 - STCDI AND STCDL TEST 
STCDI AND STCDL TEST 



•TEST 72 

• THIS IS A TEST OF THE STCDI AND 

• STCDL INSTRUCTIONS. NOTE THAT A 

• SUBROUTINE, STCSUB, IS USED TO 

• SET UP THE OPERANDS, EXECUTE THE STC 

• INSTRUCTION AND CHECK THE RESULT. 
* 



035634 


AAAAA/ 






151 7c: 


rr ADC 


7026 






.FIRST 




7027 035636 


012737 


03564* 


AA1 1 1 A 

001 1 10 




7028 035644 


AA/ 


AT7i 1 A 

0371 10 




OAAC • 

£00»: 


ICO 


7029 035650 


A 1 AAA A 

020000 


AAAAAA 
000000 


AAAAAA 
000000 


1 • . 

1»: 


. WOKP 


7030 035660 


AAA AAA 

000000 


aaAaAa 
000000 




C9. 


. wUKi; 


7031 035664 


i 77777 

1 777 7 7 


1 77777 




TC • 

*»: 


. wORP 


7032 035670 


A/ ATAA 
0*0300 






*«: 


40300 


^035 0jb6^<: 


A/ ATA/ 
0*030* 








/.ATA/, 




/ A1A/ 

1 <i030* 








1 AOTO/, 


f05j 0356^6 


1 77777 

\ f f f f f 








~ 1 


7AT^ A'XC7AA 


i A/ T'i'y 
10*3£c 






J* : 






f\f\f\J A1 

000*01 








DO 

On 


r03o 035704 


1 A/ TOC 

10*3e5 










70 3t 03)700 








o». 




7/W A 

70hO 












7A^ i 

704 1 












7Ay 1 








;EXP=0 




7Ay ¥ 
70*3 








(OCT) 


7Ay J AVC7AX. 

704* 03)706 


A1 '5717 


AT? 71 L 

\J3J( 1* 


AA1 11 A 

UOl 1 1 U 




NOV 


7Ay C A^C71 / 

7045 03571* 


nnj 71 7 
00* 737 


037110 




210$: 


JSR 


7Ay A ATC7^A 

7046 0357^0 


A/ AAAA 
0*0000 


AAAAAA 
000000 


AAAAAA 
000000 


11$: 


.WORD 


70/ 7 AYC7YA 

7047 035730 


AAAAAA 
OOOOOU 


AAAAAA 
000000 




12$: 


.WORD 


7Ay B A¥C7'?y 

70ho 03573* 


1 77777 


1 77777 




13$: 


.WORD 
40313 


7Ay Q ATC7/A 
70*7 0357*0 


A/ ATI T 

0*031 5 






14$: 


7ACA ATC7/ ^ 

7050 035 7* £ 


A/ATA/. 

0*030* 








40304 


7051 0357** 


1 / ATA/ 

1*030* 








140304 


705£ 035 7*0 


1 77777 








-1 


7053 035750 


1 AZ. T55 






15$: 


ERROR 


/OS* 0^575? 


000*01 








BR 


7055 035754 


104326 








ERROR 


7056 035756 








16$: 




7057 












7058 








;EXP=37 (OCT) 


7059 035756 


012737 


035764 


001110 




NOV 


7060 035764 


004737 


037110 




220$: 


JSR 


7061 035770 


047667 


075757 
173757 


157737 


21$: 


.WORD 


7062 036000 


055675 




22$: 


.WORD 


7063 036004 


122102 


004021 




23$: 


.WORD 


7064 036010 


040717 






24$: 


40717 


7065 036012 


040700 








40700 


7066 036014 


140705 








140705 


7067 036016 


}77777 








-1 


7068 036020 


104327 






2S$: 


ERROR 


7069 036022 

7070 036024 


000401 








BR 


104326 








ERROR 



WITH EXPslOO 
«200$,$LPERR 
PC.STCSUB 
20600,0.0.0 

0,0 
-1.-1 



♦322 

6$ 

♦325 



(EXCESS 200) 

.-SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;AC0 OPERAND. 
.EXPECTED RESULT. 
.ERROR RES. 

:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.-ANTICIPATED ERRONEOUS FPS. 
.•REPORT RESULT INCORRECT. 
.RESULT INCORP. 

.-EITHER (BUT FLAG) 
;ST 662 

:0R CLEAR FLAG 
.ST 774 



:DPN002 



FL=1 FIC=0 
«210$.$LPERR 
PC.STCSUB 
40000.0.0.0 
0.0 



-r-1 



♦322 

16$ 

♦326 



.-SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 
.-AC ;ACO OPERAND. 
.EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
.-FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

.-REPORT RESULT INCORRECT. 

;REPORT FPS INCORRECT. 



;DPN002 



FL=1 FIC=1 

#220$.$LPERR .SET UP THE LOOP ON ERROR ADDRESS. 

PC.STCSUB ;G0 EXECUTE THE INSTRUCTION. 

47667.75757^1 577i7, 167773 ;ACO OPERAND. 



;DPN002 



55675:17375^ 
12210^.004021 



♦327 

26$ 

♦326 



.•EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
.FP3 AFTER EXECUTION. 
.-ANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

.-(BUT ENBT) ST 632 

.REPORT FPS INCORRECT. 



i-uFPCOO fPIU FLTG PNT PRT C HACRO 
TEST • 72 - STCDI AMD STCDL TEST 



H1 113 50-OCT-81 11:15 PAGE 



K 13 
73-1 



7071 

7072 

7075 

7074 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

7084 

7085 

7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

709* 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

71 OA 

7105 

7106 

7107 

7(08 

7109 

7110 

7111 

7112 

7113 

71 U 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 



036026 



036026 
036034 
036040 
036050 
036054 
036060 
036062 
036fy>4 
036066 
036070 
036072 
036074 

036076 



036076 
036104 
036110 
036120 
036124 
036130 
036132 
036134 
036136 
036140 
036142 
036144 
036146 



036146 
036154 
036160 
036170 
036174 
036200 
036202 
036204 
036206 
036210 
036212 
036214 
036216 



036216 
036224 
036230 
036240 
036244 
036250 
03625? 
036254 



012737 
004737 
050000 
000000 

040700 
140705 
040705 
000006 
104322 
000401 
104330 



012737 
004737 
050000 
000000 
^77777 
040312 
040305 
140305 
}77777 
104322 
000401 
104331 



012737 
004737 
046000 
000200 
}77777 
040700 
C40700 
'77777 
}77777 
104322 
000401 
104323 



012737 
m7Z7 
045600 
000100 
:77777 
040707 
040700 
\77777 



036034 
037M0 
000000 
000000 
\77777 



036104 
037110 
000000 
000000 
y77777 



036154 
037110 
000001 
000001 
-{77717 



036224 
037110 
000001 
000000 
-{77777 



001110 
000000 



001110 
000000 



001110 
000000 



001110 

oocooo 



26S: 

;EXP=40 



230$ 

31$ 

32$ 

33$ 

34$ 



35$: 



36$: 



(OCT) 

MOV 

JSR 

.WORD 

.WORD 

.WORD 

40700 

140705 

40705 

6 

ERROR 
BR 

ERROR 



;EXP=40 (OCT) 

nov 

240$: JSR 
41$: .WORD 
42$: .WORD 
43$: .WORD 
44$: 40312 
40305 
140305 
-1 

ERROR 
BR 

ERROR 



45$ 
46$ 



;EXP=30 (OCT) 
MOV 

250$: JSR 
51$: .WORD 
52$: .WORD 
53$: .WORD 
54$: 40700 
40700 
-1 
-1 

ERROR 
BR 

ERROR 



55$: 
56$: 



;EXP=27 



260$ 

61$ 

62$ 

63$ 

64$ 



(OCT) 

nov 

JSR 
.WORD 
.WORD 
.WORD 

40707 
40700 
-1 



FL=1 FIC=1 
«230$,$LPERR 
PC.STCSUB 
50000,0.0,0 
0,0 



-r-1 



♦322 

36$ 

♦330 



.SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 
.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

.REPORT RESULT INCORRECT. 



SEQUENCE 166 



;DP«002 



;(BUT FIC) ST 004 

;T0 305 INTO 
;315 



;REPOftT FPS INCORRECT. 



FL=1 FIC=0 
#240$.$LPERR 
PC.STCSUB 
5060C, 0,0,0 
0,0 



-f:-i 



♦ 322 

46$ 

♦331 



;SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 
.•EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;ANT1CIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

.•REPORT RESULT INCORRECT. 



;DP«002 



;(8UT FIC) ST 004 TO 
;315 INTO 305 



FL=1 FIC=1 
#250$,$LPERR 
PC.STCSUB 
46000,1,0,0 
200,1 



-1,-1 



♦322 

56$ 

♦323 



.SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;AC0 OPERAND. 
.EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 

.REPORT RESULT INCORRECT. 



;DP«002 



FL=1 FIC=1 

#260$.$LPERR 

PC.STCSUB 

45600,1.0.0 

100,0 

-1.-1 



.•REPORT FPS I»JC0RRECT. 



.SET UP THE LOOP ON ERROR ADDRESS. 
.•60 EXECUTe THE INSTRUCTION. 
;ACO OPERAND. 
.•EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXFCUTION. 
.•ANTICIPATED ERRONEOUS FPS. 



;DP«002 



CKFPCOO FP11F FLTG PNT PRT C RACRO N1113 
TEST t 72 - STCDI AND STCDL TEST 



30-0CT-81 11:15 PAGE 



1. 15 
73-2 



SEQUENCE 167 



IE 



7128 

7129 

7130 

7131 

7132 

7133 

71 5A 

7135 

7136 

7157 

7138 

7139 

7U0 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

71 5A 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 

7164 

7165 

7166 

7167 

7168 

7169 

71 70 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 



056256 
036260 
056262 
036264 
036266 



036266 
036274 
036300 
036310 
036314 
036320 
036322 
036324 
056326 
036330 
056532 
056534 
056556 



056356 
056544 

056550 
056560 
056564 
036570 
036372 
036374 
036576 
036400 
056402 
036404 
036406 



036406 
036414 
036420 
036450 
036434 
036440 
036442 
036444 
036446 
036450 
056452 
056454 
056456 



056456 
056464 
056470 
036500 
036504 



177777 
104322 
00040^ 
104525 



012757 
004757 
045600 
040000 
000000 
040600 
040600 
140604 
177777 
104532 
000401 
104355 



012757 
004757 
044000 
000000 
177777 
040600 
140605 
040600 
000006 
104322 
000401 
104354 



012737 
004757 
142000 
177600 
000200 
040600 
040610 
040600 
177777 
104555 
000401 
104556 



012757 
004757 
147600 
140000 
157777 



056274 
057110 
000000 
177777 
177777 



056544 
057110 
000000 
177777 
177777 



056414 
057110 
000000 
177777 

000000 



056464 
057110 
000000 
000000 
000000 



001110 
000000 



001110 
000000 



001110 
000000 



001110 
000000 



65S: 
66»: 



-1 

ERROR 
BR 

ERROR 



75$: 
76S: 



85S: 
86S: 



;EXP=10 (OCT), 
MOV 

290$: JSR 
91$: .WORD 
92$: .UORD 
95$: .WORD 
94$: 40600 
40610 
40600 
-1 

ERROR 
BR 

ERROR 



95$ 
96$ 



♦ 522 
66$ 

♦ 525 



.EXPECTED FEC. 

.•REPORT RESULT INCORRECT. 



; REPORT FPS INCORRECT. 



;EXP=17 (OCT) 
MOV 

270$: JSR 
71$: .WORD 
72$: .WORD 
73$: .WORD 
74$: 40600 
40600 
140604 
-1 

ERROR 
BR 

ERROR 



FL=0 FIC=1 
#270$.$LPERR 
PC.STCSUB 
43600.0.0,0 
40000,-1 
O.-l 



♦552 

76$ 

♦533 



.SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 

.•EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
.•ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

.BAD CONSTANT ST 066 



;DP«002 



.REPORT FPS INCORRECT. 



;EXP=20 (OCT) 
NOV 

280$: JSR 
81$: .WORD 
82$: .WORD 
83$: .WORD 
84$: 40600 
U060S 
40600 
6 

ERROR 
BR 

ERROR 



FL=0 FIC=1 
«280$,$LPERR 
PC.STCSU8 
44000,0,0,0 
0,-1 



-1.-1 



♦322 

86$ 

♦554 



SET UP THE LOOP ON ERROR ADDRESS. 
60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

.REPORT RESULT INCORRECT. 



;DP«002 



.BAD CONSTANT ST 066 



AC NEGATIVE. FL=0 



#290$,$LPERR 

PC.STCSUB 
142000.0,0,0 
177600.-1 
200,0 



♦555 

96$ 

♦336 



FIC=1 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

.EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 
.(BUT ENBT) ST 632 

;(SET FN) ST 473 



;DP«002 



;EXP=37 (OCT), FL=1. FIC=1, AC NEG. 

nOV «300$,$LPERR .-SET UP THE LOOP ON ERROR ADDRESS. 



300$ 
101$ 
102$ 
103$ 



JSR PC.STCSUB 

.WORD 147600,0,0,0 

.WORD 140000,0 

.WORD 137777,0 



GO EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

;EXPECTED RESULT. 
.ANTICIPATED ERRONEOUS RESULT. 



;DPH002 



CKFPCDO FP11F FLTG PNT PRT C MACRO H1113 50-OCT-81 11:15 PAGE 
TEST » 72 - STCDI AND STCDL TEST 



n 13 

75-3 



SEQUENCE 168 



7185 036510 

7186 036512 

7187 0365U 

7188 036516 

7189 036520 

7190 036522 

7191 036524 

7192 036526 
7193 

7194 

7195 036526 

7196 C36534 

7197 036540 

7198 036550 

7199 036554 

7200 036560 

7201 036562 

7202 036564 

7203 036566 

7204 036570 

7205 036572 

7206 036574 

7207 036576 
7208 

7209 

7210 036576 

7211 036604 

7212 036610 

7213 036620 

7214 036624 

7215 036630 

7216 036632 

7217 036634 

7218 036636 

7219 036640 

7220 036642 

7221 036644 

7222 036646 
7223 

7224 036646 

7225 036654 

7226 036660 
722? 036670 

7228 036674 

7229 036700 

7230 036702 

7231 036704 

7232 036706 

7233 036710 

7234 036712 

7235 036714 

7236 036716 
7257 

721B 

7239 036716 

7240 036724 

7241 036730 



040700 
040710 
U7777 
}77777 
104337 
000401 
104323 



012737 
004737 
147600 
137777 
140000 
040707 
040710 
y77777 
}77777 
104340 
000401 
104323 



012737 
004737 
150200 
000000 
y77777 
Qi.(i7Q^ 
140705 
U7777 
000006 
104322 
000401 
104341 



012737 

004737 

150000* 

000000 

100000 

040700 

140705 

040700 

000006 

104342 

000401 

104323 



012737 
004737 
150001 



036534 
037110 
000000 

ym77 

^77777 



036604 
037110 
000000 
000000 
}77777 



036654 
037110 
000001 
000000 
177600 



036724 
037110 
000000 



001110 
001000 



001110 
000000 



001110 
000000 



001110 
000000 



104f: 

1051: 

106$: 
;EXP=37 



31 OS 
111$ 
112$ 
113$ 
114$ 



115$: 



116$: 



40700 
40710 
-1 
-1 

ERROR 
BR 

ERROR 



(OCT). 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
40707 
40710 
-1 
-1 

ERROR 
BR 

ERROR 



;EXP=41 (OCT). 

nov 

JSR 
.WORD 
.WORD 
.WORD 

40700 
140705 
-1 
6 

ERROR 
BR 

ERROR 



320$ 
121$ 
122$ 
123$ 
124$ 



125$: 



126$: 
;EXPs 

330$ 
131$ 
132$ 
133$ 
134$ 



135$ 
136$ 



40 (OCT). 
NOV 
JSR 
.WORD 
.WORD 
.WORD 
40700 
140705 
40700 
6 

ERROR 
BR 

ERROR 



♦337 
106$ 
♦323 



;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

;(8UT COUT) ST 375 
;ST 275 TO 074 
.-INTO 274 



FL=1. FIC=1. At Nf- 
#310$.$LPERR :Sr < THE LOOP ON ERROR ADDRESS. 
PC.STCSUB ;60 EXECUTE THE INSTRUCTION. 

147600.0,1000,0 :ACO OPERAND. 



;DPfl002 



M7777'^>7777 
140000.177777 



♦340 
116$ 
♦323 



.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
.FPS AFTER EXECUTION. 
.-ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

;(BUT COUT) ST 375 
;T0 274 INTO 074 
.•REPORT FPS INCORRECT. 



AC NEC. FL=1. FIC=1 



#320$.$LPERR 
PC.STCSUB 
156200,0,0,0 
0,0 
-1,-1 



♦322 
126$ 
♦341 



SET UP THE LOOP ON ERROR ADDRESS. 
60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
.EXPECTED FEC. 

REPORT RESULT INCORRECT. 



;DPH002 



(BUT EZBT) ST 377 



AC NEC. FL=1. 
#330$.$LPERR 
PC.STCSUB 
156000.1.0,0 
0,0 

160000,-200 



♦342 
136$ 
♦323 



nc=i 

;SET UP THE LOOP ON ERROR ADDRESS. 
:60 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 
.EXPECTED RESULT. 

:ANTK1PATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
rANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

(BUT COUT) ST 360 
TO 654 INTO 454 
REPORT FPS INCORRECT. 



.•DPH002 



;EXP=40, AC NEGATIVE, FL=1, FIC=1 



nov #340$,$LPERR 
340$: JSR PC.STCSUB 
141$: .WORD 156001.0,0,0 



SET UP THE LOOP ON ERROR ADDRESS. 
GO EXECUTE THE INSTRUCTION. 
ACO OPERAND. 



;DP«002 
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SEQUENCE 169 



TE 



7242 


036740 


000000 


000000 




7243 


036744 


077400 


000000 




7244 


036750 


040700 






7245 


036752 


140705 






7246 


036754 


177777 






7247 


036756 


000006 






7248 


036760 


104343 






7249 


036762 


000401 






7250 


036764 


104323 






7251 


036766 








7252 










7253 










7254 








001110 


7255 


036766 


012737 


036774 


7256 


036774 


004737 


037110 




7257 


037000 


1 50000 


000000 


000000 


7258 


037010 


100000 


000000 




7259 


037014 


000000 


000000 




7260 


037020 


040700 






7261 


037022 


040710 






7262 


037024 


140705 






7263 


037026 


}77777 






7264 


037030 


104344 






7265 


037032 


000401 






7266 


037034 


104323 






7267 


037036 








7268 










7269 










7270 








001110 


7271 


037036 


012737 


037044 


7272 


037044 


004737 


037110 




7273 


037050 


144000 


000001 


000000 


7274 


037060 


100000 


\77777 




7275 


037064 


100000 


1 77400 




7276 


037070 


040600 






7277 


037072 


040610 






7278 


037074 


140605 






7279 


037076 


y77777 






7280 


037100 


104345 






7281 


037102 


000401 






7282 


037104 


104323 






7283 










7284 


037106 


000534 







142$ 
143$ 
144$ 



145$: 

146$: 

;EXP 40 
;FIC=1 



.U0.RD 

.WORD 

40700 

140705 

-1 

6 

ERROR 
BR 

ERROR 



0.0 

7^400.0 



♦343 
146$ 
♦323 



.EXPECTED RESULT. 
.-ANTICIPATED ERRONEOUS RESULT, 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 

.-REPORT RESULT INCORRECT. 

.'REPORT FPS INCORRECT. 



(OCT), AC MOST NE6 LONG INT, FL=1 



350$ 
151$ 
152$ 
153$ 
154$ 



155$: 



156$: 



MOV 

JSR 

.WORD 

.WORD 

.WORD 

40700 

40710 

140705 

-1 

ERROR 
BR 

ERROR 



*350$.$LPERR 
PC.STCSUB 
156000.0,0.0 
100000.0 
0,0 



♦344 
156$ 
♦323 



:SET UP THE LOOP ON ERROR ADDRESS. 
;60 'XECUTE THE INSTRUCTION. 
;ACO OPERAND. 

.EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
; ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 

;(8UT NBIT) ST 654 
;0R (BUT COUT) ST 454 
;REPORT FPS INCORRECT. 



;DPM002 



;EXP=20. AC = MOST NE6 INTEGER. FL=0, FIC=1 



360$ 
161$ 
162$ 
163$ 
164$ 



165$: 



166$: 



MOV 

JSR 

.WORD 

.WORD 

.WORD 

40600 

40610 

140605 

-1 

ERROR 
BR 

ERROR 
BR 



#360$.$LPERR 
PC.STCSUB 
144000.1.0,0 
1 00000. -1 
100000.177400 



♦345 
166$ 
♦323 



:SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 
:ACO OPERAND. 

.•EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
.-EXPECTED FEC. 

.-(BUT FL) ST 653 
;T0 655 INTO 654 
.•REPORT FPS INCORRECT. 



;DP«002 



WWCDONE 
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SEQUENCE 



7285 
7286 
7287 

7288 
7289 
7290 
7291 
729? 
72^ J 
729<. 
7295 
7296 
729? 
7298 
7299 
7300 
7^01 
7302 
7303 
730A 
7305 
7306 
7307 
7308 
7309 
7310 
7311 
7312 
7313 
7314 
7315 
7316 

7317 037110 

7318 037112 

7319 037116 

7320 037120 

7321 037122 
7522 037124 

7323 037130 

7324 037134 

7325 037140 

7326 037142 

7327 037146 

7328 037150 

7329 037156 

7330 037162 
7331 

7332 037164 

7333 037166 

7334 037170 

7335 037172 

7336 037176 

7337 037202 

7338 037206 

7339 037214 

7340 0Z7220 

7341 037226 



012601 
012700 
170100 
010100 
172410 
012702 
012700 
0M722 
077003 
016100 
170100 
012737 
012700 
175410 

170204 
170305 
010102 
010237 
062702 
010237 
012737 
010437 
016137 
010102 



000200 



037370 
000004 

000020 

037162 
037370 



001240 
000010 
001244 
037370 
001250 
000022 



001236 



THIS SUBROUTINE. STCSUB. IS USED TO SET \fi THE OPERANDS. EXECUTE 
THE STCDI OR STCDL INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS HADE THUS: 

PC.STCSUB 

:AC OPERAND 
.-EXPECTED RESULT 
.ERROR RESULT 
:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.ERROR FPS. 
.•EXPECTED FEC 
.-DATA ERROR. 

;FPS ERROR. 
.-RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE STCDI OR STCDL INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

COMPARED WITH FPSA IF THIS TOO IS CORRECT STCSUB RETURNS CONTROL 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCSUB 

COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN STCSl« WILL RETURN 

TO THE ERROR CALL AT ERR2. OTHERWISE STCSUB ITSELF 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

STCDI OR STCDL IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN. ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCSUB 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCSUB WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



JSR 


PC, STCSUB 


ACARG: 




v v v y 


RES: 


WORD 


x,x 


ERRES: 


.WORD 


x.x 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERFPS: 


.WORD 


X 


FEC: 


.WORD 


X 


ERR1 : 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







001242 
001252 



STCSUB: 


MOV 




MOV 




LDFPS 




MOV 




LDD 




MOV 




MOV 


1$: 


MOV 




SOB 




MOV 




LDFPS 




MOV 




MOV 


2S: 


STCDL 




STFPS 




STST 




MOV 




MOV 




ADD 




MOV 




MOV 




MOV 




MOV 




MOV 



(SP)*,R1 

«200,R0 

RO 

Rl.RO 

(RO>.ACO 

#1206S,R2 

#4.R0 

#-1,(R2)* 

R0,1S 

20(R1),R0 

RO 

#2$-$TMP2 
«1260S.R0 
ACO,(RO) 

R4 
R5 

Rl, R2 

R2-$TMP3 

#l6-R2 

R2.$TMP5 

#l500$.$TMP4 

R4.$THP7 

22{R1),fTMPl0 

R1,R2 



;6ET A POINTER TO THE ARGUMENTS. 
.-SET UP THE ACO OPERAND. 



.-INITIALIZE THE OUT PUT BUFFER. 



;SET THE fPS. 



;TEST INSTRUCTION. 

.-GET THE FPS. 
.GET THE FEC. 
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SEQUENCE 171 



7S42 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 
7362 
7363 
7364 
7365 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7579 
7380 
7381 
7382 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
7390 



037230 
037234 
037240 
037244 
037246 
037250 
037252 
037256 
037260 
037262 
037264 
037266 
037272 



037300 
037302 
037306 
037312 
037316 
037320 
037322 
037324 
037330 

037330 
037332 



037334 
037340 
037342 
037346 

037346 
037350 



037352 
037360 
037364 
037366 



037400 
037400 



062702 
012700 
012703 
022022 
001014 
077303 
016102 
020204 
001025 
005702 
100003 
026105 
001027 



037274 000161 



010102 
062702 
012700 
012703 
022022 
001003 
077303 
000161 



104322 
000760 



020461 
001002 
000161 



104323 
000751 



016137 
010537 
104324 
000742 



104412 



000010 
037370 
000002 



000022 

00002O 
000036 



000014 
037370 
000002 



000030 



000024 
000034 



000026 
001254 



001256 



3S: 



4$. 



ADD 
NOV 

nov 

CMP 
BNE 
SOB 
MOV 
CMP 
BNE 
TST 
BPL 
CMP 
BNE 

JMP 



#10. R2 

#1200$,R0 

#2.R3 

(R0)»,(R2>+ 

15S 

R3,3S 

22(R1).R2 

R2-R4 

20i 

R2 

4$ 

26(R1),R5 
25$ 



.SEE IF THE RESULT IS CORRECT. 



;SEE IF THE FPS IS CORRECT. 
.•BRANCH IF INCORRECT. 



;SEE IF THE FEC IS CORRECT. 
.■BRANCH IF INCORRECT. 

.RETURN. 



36(R1) 

'DATA ERROR 
•SEE IF THE rAILURE WAS ANTICIPATED. 
15$: MOV R1.R2 

ADD #14.R2 

MOV #1200$,R0 

MOV #2,R3 
16$: CMP (R0)+,(R2)+ 

BNE 17$ 

SOB R3J6$ 

JMP 30(R1) 

17$: 

.-FAILURE WAS NOT ANTICIPATED SO REPORT INCORRECT PESULT HERE. 
18$: ERROR ^322 ;DATA BAD 

BR 4$ 

:FPS INCORRECT. SO SEE IF FAILURE WAS ANTICIPATED. 
^0$: CMP R4,24(R1) 

BNE 21$ 

JMP 34<R1) 

21$: 

.NOT ANTICIPATED SO REPORT BAD FPS HERE. 
22$: ERROR +323 ;FPS BAD 

BR 4$ 

•REPORT INCORRECT FEC. 

^5$: MOV 26(R1),$THP12 

MOV R5-$TMP11 
26$: ERROR ^324 

BR 4$ 



037370 y77777 ^77777 



:DATA BUFFER: 
^77777 \200%: .WORD -1.-1.-1,-1 



WWCDONE : 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G.'). 
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D U 
75 



SEQUENCE 1 71 



7398 



7399 
7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 



037402 000004 



037404 
037412 
037416 
037426 
037432 
037436 
037440 
037442 
037444 
037446 
037450 
037452 
037454 
037454 



012737 
004737 
047777 
077777 
077777 
040100 
040100 
y77777 
\77777 
104346 
000401 
104323 

104412 



037412 
037110 
y77777 
1 77600 

y77777 



00M10 
\77777 



.S8TTL TEST # 73 - STCFL AND STCFI TEST 
•iTEST 73 STCFL AND STCFI TEST 



THIS IS A TEST OF STCFL AND STCFI. IT 
HAKES USE OF THE SAHE SUBROUTINE. STCSU8. 
WHICH WAS USED TO TEST STCDL AND STCDI. 



TST73: SCOPE 
;EXP0NENT=37. FL=1 



200$: 
IS: 
2S 
3S 
4$ 



5$: 



6$: 



nov 

JSR 
.WORD 
.WORD 
.WORD 

40100 
40100 
-1 
-1 

ERROR 
BR 

ERROR 
RSETUP 



#200$.$LPERR 

PC.STCSUB 
47^77.-1,-1.-1 
77777.177600 
77777, M7777 



♦346 
6$ 

♦323 



;SET UP THE LOOP ON ERROR ADDRESS. 
;60 EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 

.EXPECTED RESULT. 
.•ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ANTICIPATED ERRONEOUS FPS. 
.•EXPECTED FEC. 

;X11(1.0>*0 ST 773X 

.•REPORT FPS INCORRECT. 

;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THF DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



;DP«002 
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^6" 



•SBTTL TEST # 74 - STEXP TEST 



.••TEST 74 STEXP TEST 

;• THIS IS A TEST OF THE STEXP 
;* INSTRUCTION 



7420 
7421 



037456 000004 



7424 
7425 



7432 

7/ 

.4 



037460 

7422 037466 

7423 037472 
037476 
037506 

7426 037510 

7427 037512 

7428 037514 

7429 037516 

7430 037520 

7431 037522 
037524 
037526 
037530 

7435 037534 
7436 
7437 

7438 037536 

7439 037544 

7440 037550 

7441 037554 

7442 037564 

7443 037566 

7444 037570 

7445 037572 

7446 037574 

7447 037576 

7448 037600 

7449 037602 
7450 

7451 037604 

7452 037606 

7453 037612 
7454 

7455 
7456 
7457 

7458 037614 

7459 037622 

7460 037626 

7461 037632 

7462 037642 

7463 037644 

7464 037646 

7465 037650 

7466 037652 

7467 037654 



012737 
012703 
004737 
020000 
177700 
052525 
040000 
040010 
040000 
104347 
000401 
104352 
005723 
022703 
001356 



012737 
012703 
004737 
040000 
000000 
052525 
040000 
040004 
040000 
104347 
000401 
104353 

005723 
022703 
001356 



012737 
012703 
004737 
040200 
000001 
052525 
040000 
040000 
040004 
104347 



037472 
040372 
040106 
000000 



001110 



040400 



037550 
040372 
040106 
000000 



001110 



000000 



040400 



037626 
040372 
040106 
000000 



001110 



TST74: 
; EXP 



SCOPE 

100 (EXCESS 200) 



200$: 
000000 1$: 
2$: 
3$: 
4$: 



5$: 



6$: 



210$ 

11$ 

12$ 

13$ 

14$ 



15$: 



'6$: 



220$: 
000000 21$: 
22$: 
23$: 
24$: 



25$: 



nov 
nov 
JSR 
.WORD 
-100 
52525 
40000 
40010 
40000 
ERROR 
BR 

ERROR 
TST 
CMP 
BNE 



#200$-$LPERR 
*1200$,R3 
PC-1006$ 
20000,0.0,0 



♦347 
6$ 
♦352 
(R3)* 

#1200$*6.R3 
200$ 



EXP = 200 (EXCESS 200) 



nov 

MOV 
JSR 
.WORD 

0 

52525 
40000 
40004 
40000 
ERROR 
BR 

ERROR 

Tsr 

CMP 
BNE 



#210$,$LPERR 
#1200$.R3 
PC. 1000$ 
40000.0.0,0 



♦347 

16$ 

♦353 

(R3) + 

#1200$^6.R3 
210$ 



; EXP = 201 (EXCESS 200) 



MOV 
MOV 
JSR 
.WORD 

1 

5252f 
40000 
40000 
40004 
ERROR 



#220$.$LPERR 
#1200i.R3 
PC. 1000$ 
40200,0,0,0 



♦347 



;SET UP THE LOOP ON ERROR ADDRESS. 
.•SETUP DATA TABLE POINTER 

AC 

EXP RES 
ERROR EXP. 
FPSB 
FPSA 

ERROR FPS 
BAD EXP 

.•♦(BUT ENBT) ST 376 
.ADVANCE POINTER 
.•HAVE WE TESTED ALL 3 STATES? 
.•BRANCH IF NOT 



;DPM002 
;DPM002 



;DPM002 
;DP«002 
;DPM002 



SET UP THE LOOP ON ERROR ADDRESS. :DPM002 
SETUP DATA TABLE POINTER ;DPM002 
60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 

(BUT EZ8T) ST 071 
TO 072 INT 272 

ADVANCE POINTER :DPM002 
HAVE WE TESTED ALL 3 STATES? ;DPM002 
BRANCH IF NOT :DPM002 



SET UP THE LOOP ON ERROR ADDRESS. 
SETUP DATA TABLE POINTER 
60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

EXPECTED EXPONENT RtSULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 



;DPM002 
;DPM002 
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F H 
76-1 



7<.68 

7469 

7470 

7471 

7472 

7^75 

7474 

7475 

7476 

7477 

7478 

7479 

7480 

7481 

7482 

7483 

7484 

7485 

74 86 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

752 

752 

7524 



057656 
037660 
037662 
037664 
037670 



037672 
037700 
037704 
037710 
037720 
037722 
037724 
037726 
037730 
0377^2 
037734 
037736 
037740 
037742 
037746 



037750 
037756 
037762 
037766 
037776 
040000 
040002 
040004 
040006 
040010 
040012 
040014 
040016 
040020 
040024 



040026 
040034 
040040 
040044 
040054 
040056 
040C60 
040062 
040064 
040066 



000401 
104354 
005723 

022703 040400 
001356 



012737 
012703 
004737 
077200 
000175 
052525 
040000 
040000 
040010 
104347 
000401 
104355 
005723 
022703 
001356 



012737 
012703 
004737 
000200 
177601 
052525 
040000 
040010 
040000 
104347 
000401 
104352 
005723 
022703 
001356 



037704 
040372 
040106 
000000 



001110 



040400 



037762 
040372 
040106 
OOOUOO 



001110 



040400 



012737 040040 

012703 040372 

004737 040106 

033400 000000 

177756 

052525 

047707 

047710 

}77777 

104347 



001110 



26$: 



230$ 
000000 31$ 
32$ 
33$ 
34$ 



35$: 
36$: 



240$ 
000000 41$ 
42$ 
43$ 
44$ 



45$: 



46$: 



250$ 
000000 51$ 
52$ 
53$ 
54$ 



55$: 



BR 

ERROR 
TST 
C«P 
BNE 



26$ 

♦354 
{R3)* 

#1200$t6,R3 
220$ 



: EXP = 375 (EXCESS 200) 



MOV 
nov 

JSR 

.WORD 

175 

52525 

40000 

40000 

40010 

ERROR 

BR 

ERROR 
TST 
CMP 
BNE 



«230$.$LPERR 
#1200i.R3 
PC -1000$ 
77^00.0.0.0 



♦347 
36$ 

♦355 
(R3)^ 

#1200$*6.R3 
230$ 



; tXP = 1 (EXCESS 200) 



MOV 
MOV 

JSR 

.WORD 

-177 

52525 

40000 

40010 

40000 

ERROR 

BR 

ERROR 
TST 
CMP 
BNE 



#240$.$LPERR 
#1200$.R3 
PC. 1000$ 
206.0.0.0 



♦347 
46$ 

♦352 
(R3)^ 

#1200$+6.R3 
240$ 



; EXP = 156 (EXCESS 200) 



MOV 

MOV 

JSR 

.WORD 

-22 

52525 

47707 

47710 

-1 

ERROR 



#250$.$LPERR 
#1200i.R5 

PC. 1006$ 

33400.0.0.0 



♦347 



SEQUENCE 174 



(BUT EZ8T) ST 071 TO 272 INTO 072 



ADVANCE POINTER ;DPM002 
HAVE WE TESTED ALL 3 STATES? ;DPM002 
BRANCH IF NOT :DPM002 



SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
SETUP DATA TABLE POINTER :DPM002 



60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 



(BUT ENBT) ST 376 TO 471 INTO 071 

ADVANCE POINTER ;DPM002 

HAVE WE TESTED ALL 3 STATES? ;DPM002 

BRANCH IF NOT ;DPM002 



SET UP THE LOOP ON ERROR ADDRESS. :DPM002 
SETUP DATA TABLE POINTER ;DPM002 



60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 



REPORT FPS INCORRECT. 

ADVANCE POINTER ;DPM002 

HAVE WE TESTED ALL 3 STATES? ;DPM002 

BRANCH IF NOT ;DPM002 



SET UP THE LOOP ON ERROR ADDRESS. ;DPM002 
SETUP DATA TABLE POINTER ;DPM002 



60 EXECUTE THE INSTRUCTION. 
ACO OPERAND. 

EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 



CKFPCDO FP11F FLTG PHI PRT C 
TEST # 74 - STEXP TEST 



MACRO mi15 30-0CT-81 11:15 PAGE 



G U 
76-2 



7525 040070 

7526 040072 
7527 

7528 040074 

7529 040076 

7530 040102 
7551 040104 



000401 
104350 

005723 
022703 
001356 
000543 



040400 



56S: 



BR 

ERROR 

TST 
C«P 
BNE 
BR 



56S 
♦350 

(R3)* 

*1200S*6.R3 

250S 

260S 



.-REPORT FPS INCORRECT. 

.ADVANCE POINTER 

;HAVE WE TESTED ALL 3 STATES? 

.-BRANCH IF NOT 



SEQUENCE 



;DPM002 
;DPH002 
.-DP«002 



CKFPCDO FP11F FLTG PNT 
TEST f 74 - STEXP TEST 

7532 
75^3 
7534 
7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
7543 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 

7563 040106 012601 

7564 040110 010102 

7565 040112 010237 

7566 040116 062702 

7567 040122 012237 

7568 040126 012737 

7569 040134 012737 

7570 040142 012737 

7571 040150 012700 

7572 040154 170100 

7573 040156 010100 

7574 040160 172410 

7575 040162 016100 

7576 040166 170100 

7577 040170 011300 

7578 040172 016337 

7579 040200 000000 

7580 040202 170204 

7581 040204 026300 

7582 040210 001411 

7583 040212 013737 

7584 040220 016337 

7585 040226 010037 

7586 040232 104371 
7587 

7588 



PRT C MACRO Ml 113 30-0CT-81 11:15 PAGE 



H 14 
77 



SEQUENCE 



JSR 


PC. 1000$ 


AC ARC: 


.yORD 


X « X « X # X 


RES: 


.yORD 


X 


ERRES: 


.yORD 


X 


FPS8: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERFPS: 


.yORD 


X 


ERRl: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







THIS SUBROUTINE. lOOOS. IS USED TO SET UP THE OPERANDS. EXECUTE 
THE STEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
TO IT IS MADE THUS: 

JSR PC.IOOOt 

:AC OPERAND 
.•EXPECTED RESULT 
.-ERROR RESULT 
:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.ERROR FPS. 
.•DATA ERROR. 

;FPS ERROR. 
.RETURN ADDRESS 

THE 0^>ERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE STEXP INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED yiTH FPSA IF THIS TOO IS CORRECT 1000S RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD 1000$ 
COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN 1000$ yiLL RETURN 
TO THE ERROR CALL AT ERR2. OTHERyiSE 1000$ ITSELF 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF 
STEXP IS INCORRECT. THE INCORRECT RESULT IS COMPARED UITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 1000$ 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERRl. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND 1000$ WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



THE 







1000$: 


HOV 
MOV 


001240 






HOV 


000010 






ADD 


001244 






HOV 


040200 


001236 




HOV 


123456 


040360 




HOV 


076543 


040362 




HOV 


000200 






MOV 

LDFPS 

MOV 

LDD 


000016 






HOV 

LDFPS 

HOV 


000006 


040200 


61$: 


HOV 

.WORD 

STFPS 


000014 






CHP 
BEQ 


040200 


001260 




HOV 


000014 


001240 




HOV 


001242 






HOV 
ERROR 



(SP)*.R1 

R1.R2 

R2-$THP3 

#10,R2 

(R2>*,$THP5 

#61$-$THP2 

#123456,1210$ 

#76543.1 21 0$*2 

#200.r6 

RO 

Rl.RO 
(r6).AC0 
16(R1}.R0 
RO 

(R3),R0 

6(R3).61$ 

0 

R4 

14(R3),R0 
101$ 

67$,$THP13 
14(R3).$THP3 
R0.$THP4 
♦3^1 



.-GET A POINTER TO THE ARGUMENTS. 



SET UP THE ACO OPERAND. 

SET THE FPS. 

SETUP RO FROM THE TABLE 

MOVE TEST INSTRUCTION TO ITS POSITION 

LOCATION FOR TEST INSTRUCTION. 

GET FPS. 

SEE IF RO WAS PROPER 
BRANCH JF OK 

MOVE OP CODE OF FAILING INST TO $TMP13 

MOVE EXPECTED DATA TO $TMP3 

MOVE RECEIVED DATA TO $TMP4 

STEXP AUTO INCREHENTED/DECREHENTED 

RO INCORRECTLY 



DPM002 
DPM002 
DPM002 

DPM002 
OPH002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 



CKfPCDO FP11F FLTG PNT PRT C 
TEST » 7<. - STEXP TEST 



RACRC mi13 30-0CT-81 11:15 PAGE 



I U 
77-1 



SEQUENCE 177 



7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 

760A 

7605 

7606 

7607 

7608 

7609 

7610 

7611 

7612 

7613 

76K 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

7624 

7625 

7626 

7627 

7628 

7629 

7630 



0A0234 
0A0240 
0A0246 
0A0254 
040262 
040264 
040272 
040274 



040300 
040300 
040302 

040306 
040312 
040314 
040320 
040322 



040326 
040326 
040330 



040332 
040340 
040342 
040344 

040346 
040360 
040372 
040400 
040402 
040404 
040406 

040414 
040414 



010437 
016137 
013737 
026137 
001411 
026137 
001002 
000161 



104347 
000161 

020461 
001407 
020461 
001002 
000161 



104350 
000764 



022737 
001760 
104351 
000756 

y77777 
}77777 
040360 
175010 
175020 
1 75040 
040360 



104412 



001250 
000016 
040360 
000010 

000012 

000022 



000030 
000016 
000020 
000026 



y77777 
}77777 
040360 



001252 
001242 
040360 

040360 



076543 040362 



y77777 
}77777 
040362 



040362 040360 



IF THIS FAILURE OCCUREO, IS n7095 ECO #10 IN? 



^6l$: NOV R4.fTW>7 

16(R1)-fT«P10 

MOV 1210S,iTnP4 

C«P 10(R1).1210f 

BEQ 65S 

C«P 12(RI)J210f 

BNE 62S 

J«P 22(R1) 



.WAS RESULT CORRECT? 
'BRANCH IF CORRECT 

;0THERUISE SEE IF THE FAILIyRE WAS ANTICIPATED. 



;IF NOT ANTICIPATED REPORT ERROR HERE. 
62$; 

63S: ERROR ^347 
64S: JMP 30(R1) 



;EXP BAD 



65S: 



BEQ 
C«P 
BNE 



R4,16(R1} 
70i 

R4.20(R1) 
66$ 

26(R1) 



SEE IF THE FPS IS CORRECT, 

BRANCH IF CORRECT. 

SEE IF THE FAILURE WAS ANTICIPATED. 



;FPS ERROR WAS NOT ANTICIPATED SO REPORT ERROR HERE. 
66$: 

67$: ERROR ^350 ;FPS BAD 

BR 64$ 

:SEE IF MORE THAN ONE WORD WAS WRITTEN IN THE OUTPUT BUFFER. 
^0$: C«P #76543. 1210$»2 
BEO 64$ 

71$: ERROR ♦SSI ;FDFL*0 ST 347X 

BR 64$ 



1210$: 
1200$: 



260$: 



.WORD -1.-1.-1.-1.-1 

.WORD -1,-1,-1,-1.-1 

.WORD 1210$. 1210$. 12ld$«2 ;DATA FOR RO LOAD 

STEXP ACO,(RO) :TEST INSTRUCTION (NOT EXECUTED HERE) 

STEXP ACO.CRO)* .-TEST INSTRUCTION (NOT EXECUTED HERE) 

STEXP ACO.-(RO) :TEST INSTRUCTION (NOT EXECUTED HERE) 

.WORD 1210$. 1210$«2, 1210$ .-EXPECTED RO END VALUE 

RSETUP ;60 INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



DPM002 
DPM002 
DPH002 
DPH002 
DPM002 



CKFPCOO FPIIF FLTG PNT PRT C 
TEST # 75 - STST TEST 

7641 



PIACRO mi13 50-0CT-81 11:15 PAGE 



J U 
78 



SEQUENCE 178 



0A0416 

7642 040420 

7643 040426 

7644 040432 

7645 040434 
7646 

7647 040436 

7648 040442 

7649 040446 

7650 040454 

7651 040462 
7652 

7653 040464 

7654 040466 

7655 040472 

7656 040476 

7657 040504 

7658 040512 

7659 040520 

7660 040524 
7661 

7662 040532 

7663 040536 

7664 040540 

7665 040546 

7666 040550 

7667 040554 

7668 040556 
7669 

7670 

7671 040560 

7672 040562 
7673 

7674 

7675 040564 

7676 040572 

7677 040574 

7678 040576 

7679 040600 

7680 040602 
7681 

7682 

7683 040604 

7684 040606 
7685 



000004 
012737 
012700 
170100 
170003 

012700 
012710 
012760 
012737 
170310 

170204 
012700 
011037 
016037 
012737 
012737 
010437 
012737 

022710 
001010 
022760 
001006 
022704 
001013 
000422 



104356 
000420 



022760 
001402 
104357 
000412 
104360 
000410 



104361 
000406 



040426 
040000 



040612 
U7777 
\77777 
040462 



040612 
001240 
000002 
000002 
040434 
001250 
140000 

000002 

040434 

1/DOOO 



.S8TTL TEST # 75 - STST TEST 



• * 



TEST 75 



STST TEST 



THIS IS A TEST Of THE STST 

INSTRUCTION. FIRST AN ILLEGAL FPS OP CODE 

(INSTRUCTION) IS USED TO ENTER AN 

ERROR CONDITION IN THE FEC AND 

FEA. THE STST IS EXECUTED AND 

THE FEC AND FEA ARE CHECKED 





- * 
• 






TST75: 


SCOPE 


001110 




MOV 


200>: 


MOV 






■ w^r A^ 

LDFPS 




21 OS: 


.yORD 






NOV 






HOV 


000002 




RQV 


001236 




10V 




230S: 


STST 






CTFDC 






NOV 






MOV 


001242 




MOV 


001244 




nov 


001246 




nov 






nov 


001252 




nov 






cnp 






BNE 


000002 




cnp 






BNE 






cnp 






BNE 






BR 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET FPS. FID=1. 

.ILLEGAL FPP 
:0P CODE 
.SET UP THE OUTPUT BUFFER. 



;6ET FEC AND 
;FEA 
;6ET FPS. 



Mim 000002 



246s 
«210S,2(R0) 
250S 

#140000, R4 

260S 

270S 



•REPORT FEC INCORRECT 
HOS: ERROR ^356 
BR 270S 

:REP0RT FEA INCORRECT 

J50S: cnp #-K2(R0) 

BEO 280i 

ERROR +357 

BR 270S 

280S: ERROR •»360 

BR 270S 

: REPORT FPS INCORRECT 
260S: ERROR «361 
BR 270S 



«200S.SLPERR 

#40006,R0 

RO 

170003 

«220S,R0 
#-1 . (RO) 
#-1.2(R0) 
#236s.STnP2 

(RO) 

R4 

#220S,R0 

(R0),STnP3 

2(R0).STnP4 

f2,STnP5 

#210S,STnP6 

R4.STnP7 

»140000,$TNP10 



f2.(R0) .SEE IF FEC IS CORRECT. 



;DPn002 



BRANCH IF INCORRECT. 
SEE IF FEA. ADDRESS. IS CORRECT. 
BRANCH IF INCORRECT. 
SEE IF FPS IS CORRECT. 
BRANCH IF INCORRECT. 



;FECX 



.STST BAD 

:STST BAD FEA 
;SET FD FL ST 636 

;FPS X AFTER ST ST 



CKFPCDO FPllF FLTG PNf PRT C PMCRO W113 30-0CT-81 11:15 PAGE 78-1 
TEST # 75 - STST TEST 

7686 ;DATA BUfFER: 

7687 (K0610 M7777 -1 ... 

7688 040612 y77777 M7777 177777 220$: .WORD -1,-1.-1.-1 

7669 040622 ^77777 -1 
7690 

7691 040624 270S: 



SEQUENCE 1 79 



CKFPCOO FP11F FLTG PNT PRT C 
TEST • 75 - STST TEST 

04062^ 104412 



HACRO mi13 IO-OCT-81 11:15 PAGE 



RSETUP 



L 14 
79 



7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 

nil 

7721 
77lk 
772S 
772b 
7727 
7728 
7729 
7750 
7731 
7732 



040626 
040632 
040636 
040642 
040646 
040652 
040656 
040662 
040666 
040672 

040676 
040702 
040710 
040716 
040724 
040732 

040740 
040744 
040750 
040754 
040760 
040764 

040770 
040774 
041002 
041010 
041016 
041024 

041032 
041040 
041044 
041050 
041054 
041062 
041070 
041076 



005037 
170127 
012700 
012701 
010037 
010137 
010137 
010037 
010037 
010037 

005037 
012737 
012737 
012737 
012737 
012737 

010037 
010037 
010037 
010137 
010137 
010037 

005037 
012737 
012737 
012737 
012737 
012737 

013737 
012701 
012702 
012703 
012737 
012737 
012737 
012737 



177572 
040000 
077406 
077400 
172320 
172322 
172324 
172326 
172330 
172336 

172360 
000200 
000400 
000600 
000600 
177600 

172300 
172302 
172304 
172306 
172310 
172316 

172340 
000200 
000400 
0006G0 
000600 
177600 

000250 
117760 
117770 
1 1 7772 
041714 
000340 
000024 
117760 



172362 
172364 
172366 
172370 
1 72376 



172342 
172344 
172346 
172350 
172356 

001262 



000250 
000252 
172516 
077770 



.S8TTL 


SETUP FOR TESTS 


CLR 


MMRO 


LDf PS 


#40000 


MOV 


M^'y J Az nA 

#77406, RO 


MOV 


0ffHQO,R\ 


MOV 


nA ^nn^nA 

RU.KDPDRO 


MOV 


R 1 .KpPDR 1 


MOV 


R1.KDPDR2 


MOV 


R0,KDPDR3 


MOV 


RO.KDrDNH 


MOV 


R{j,KDrORf 


r 1 D 
CLR 






MOAA ^f\DAD1 


MOV 


«400,iCDPAR2 


MOV 


#600.KDPAR3 


TOV 


mow fKOrAHH 


PHJV 


m] f tO\J\J fKur^Hl 


HOV 




MOV 


OA ^ t DAD1 


MOV 


R0.ICIPDR2 


MOV 


R1.KIPDR3 


Mf\U 

nuv 




nUV 


on If rDnD7 


n D 
CLR 


W to ADA 


mJV 




nUV 


MLf\t\ V I DAD3 


nuv 




MOV 


#600 KIPAR4 


MOV 


#177600,KIPAR7 


MOV 


MMVECT.$TMP14 


MOV 


#DATA,R1 


MOV 


#DATA^13,R2 


MOV 


#DATA*12,R3 


MOV 


#TRAPV,MMVfCT 


MOV 


#340,HMVECT*2 


MOV 


#24.MnR3 


MOV 


»t>A^A,77770 



SEQUE»<CE 180 



;G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
IVIRTUAL CONSOLE SWITCH REGISTER (HAS 
•THE USER TYPED CONTROL G?). 
^6 THROUGH 104 

;MAKE SURE MEMORY MANAGEMENT IS OFF. 

;L0AD FPS STATUS. 

;LOA0 RO WITH 77406 

.•LOAD Rl WITH 77400 

;MAKE KDPDRO RESIDENT. 

.•MAKE KDPDRl NON-RESIDENT. 

;MAKE KDPDR2 NON-RESIDENT. 

;MAKE KDPDR3 RESIDENT FOR ADDRESSES 60000-77756. 
.•MAKE KDPDR4 RESIDENT FOR ADDRESSES 77760-77776. 
;MAKE KDPDR7 RESIDENT (I/O PAGE). 

.MAP D-PAGE 0 FOR 0-4K. 

.MAP D-PAGE 1 FOR 4-8IC. 

.MAP D-PAGE 2 FOR 8-12IC. 

.MAP D-PAGE 3 FOR ACCESSING ADDRESSES 60000-77756. 

.MAP D-PAGE 4 FOR ACCESSING ADDRESSES 77760-77776. 

.MAP D-PAGE 7 FOR I/O PAGE. 

.-MAKE KIPDRO RESIDENT. 
.MAKE KIPDRl RESIDENT. 
.-MAKE KIPDR2 RESIDENT. 

;MAKE KIPDR3 NON-RESIDENT FOR USING ADDRESSES 60000-77756 
.-MAKE KIPDR4 NON-RESIDENT FOR USING ADDRESSES 77760-77776 
.MAKE KIPDR7 RESIDENT (I/O PAGE). 

;MAP I-PAGE 0 FtR 0-411. 
.MAP 1-PAGE 1 FOR 4-8K. 
;MAP I-PAGE 2 FOR 8-12K. 

.MAP I-PAGE 3 FOR ACCESSING ADDRESSES 60000-77756. 
;MAP I-PAGE 4 FOR ACCESSING ADDRESSES 77760-77776. 
:MAP I-PAGE 7 FOR I/O PAGE. 

;nOVE MM TRAP VECTOR TO STMPU FOR TEMP STORAGE. 
.SET ur Rl. 
;SET UP R2. 
'SET UP R3 

•SET UP FOR FP TRAPS FOR THIS TEST. 

.TURN ON 22-eiT KERNEL D-SPACE. 
.SET UP ADDRESS POINTER. 



CICFPCDO FPIIF FLTG PNT PRT C HACRC Mil 13 30-0CT-81 11:15 PAGE 81 
TEST « 76 - ENABLE D-SPACE ft SEE I -SPACE FORCED, NODE 1 



SEQUENCE 181 



7746 



7747 
7748 
7749 
7750 
7751 
7752 
7753 
7754 
7755 
7756 
7757 
7758 
7759 
7760 



041104 
041 106 

041114 
041116 
041120 
041124 
041126 
041132 
041134 
041140 
041142 
041146 
041150 
041154 



000004 

012737 041114 001110 



170000 
010100 
004737 
170410 
004737 
177010 
004737 
172410 
004737 
170310 
004737 
005037 



042430 

042430 

042430 

042430 

042430 
177572 



SSTTL TEST # 76 - ENABLE D-SPACE i SEE I-SPACE FORCED. MODE 1 

TESr7r******EiABLE D-SPACE I SEE I-SPACE FORCED, HODE 1 

THIS IS A TEST THAT WILL ENABLE D-SPACE AND NAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
MEMORY MANAGEMENT TRAP/ABORT. 

••**ALL REFERENCES TO MICRO-FLOWS REFER TO *FP1i-F-2 REV A* FLOWS***** 

THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 

AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 

INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 

DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 

INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



TST76: 



200$: 



SCOPE 
MOV 

;* THIS 

CFCC 

MOV 

JSR 

CLRF 

JSR 

LDCIF 

JSR 

LDF 

JSR 

STST 

JSR 

CLR 



«200S,SLPERR 
INSTRUCTION WI 

R1,R0 

PC.SETERL 

(RO) 

OC-SETERL 

(R0),AC0 

PC.SETERL 

(R0},ACO 

PC.SETERL 

(RO) 

PCSETERL 
MMRO 



;SET UP THE LOOP ON ERROR ADDRESS. :DPM002 
LL TEST FOR A WORST-CASE HARDWARE PROBLEM. 

;• TEST INSTRUCTION WHICH SHOULD ALWAYS INVOKE D-SPACE, 
.•SETTING UP RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

.•TESTING BLOCKS 27-K AND 27-R. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 

; TESTING BLOCKS 28-F AND 23-P. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

.-TESTING BLOCKS 4-J, 4-X. 4-Z AND 4-8B. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

; TESTING BLOCKS 33-E AND 33-P. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

:TURN OFF MEMORY MANAGEMENT. 
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N K 
PAGE 82 



SEQUENCE M 



776y 



7762 
7763 
776A 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7771 
777k 
7775 
7776 
7777 
777% 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
7794 
7795 



041160 000004 

041162 010100 

041164 004737 0< '430 

041170 170520 

041172 004737 042430 

041176 170527 001000 

041202 010100 

041204 004737 042430 

041210 170420 



041212 170427 001000 



041216 
041220 
041224 
041226 
041232 

041236 
041240 
041244 
041246 
041252 

041256 
041260 
041264 
041266 
041272 
041276 



010100 
004737 
177020 
004737 
177027 

010100 
004737 
172420 
004737 
172427 

010100 
004 '37 
170320 
004737 
170327 
005037 



042430 

042430 
001000 



042430 

042430 
042572 



042430 

042430 
001000 
177572 



S8TTL TEST # 77 - ENABLE D-SPACE t SEE I-SPACE FORCED, MODE 2 



TEST 77 



ENABLE 0-SPACE ( SEE I-SPACE FORCED, MODE 2 



THIS IS A TEST THAT WILL ENABLE D-SPACE AND HAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
HEnORY NANAGEHENT TRAP/ABORT. 

•***ALL REFERENCES TO MICRO-FLOWS REFER TO •FP11-F-2 REV A* FLOWS***** 

THE COMMENTS FOR EACH TEST LINE AR& WRITTEN SO YOU CAN 60 TO THE MICRO FLOWS 

AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 

INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 

DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 

INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



TST77: 



SCOPE 

MOV 

JSR 

TSTF 

JSR 

TSTF 



RI.RO .-SETTING UP RO. 

PC.SETERL ;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

(r6)* .-TESTING BLOCK 21-AA. 

PC.SETERL ;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

*1000 .-TESTING BLOCK 21-AA. 



MOV RI.RO .-CORRECTING RO. 

JSR PC.SETERL ;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

CLRF (R0)+ .-TESTING BLOCKS 27-K AND 27-R. 

;**NOTE**: THE LOCATION AFTER THE CLRF, AND STST MODE 2 REG 7 INSTRUCTIONS 
;*WILL* BE CHANGED ON SUBSEQUENT PASSES, BUT IS **NOT** INCORRECT. THE 
.-ACTUAL CONTENTS OF THOSE LOCATIONS IS IMMATERIAL. AS THIS TEST INSURES 
;THAT THE INSTRUCTION DOES EXECUTE WITHOUT ACCESSING THAT LOCATION AS 
;A D-SPACE ACCESS. 

.-TESTING BLOCKS 27-K AND 27-R. 



CLRF 

MOV 

JSR 

LDCIF 

JSR 

LDCIF 

MOV 

JSR 
LDF 
JSR 
LDF 

MOV 
JSR 
STST 
JSR 

srsT 

CLR 



#1000 

RI.RO 

PC.SETERL 

(RO)*,ACO 

PC.SETERL 

#l600,AC0 

RI.RO 

PC.SETERL 

(RO)*,ACO 

PC.SETERL 

#l600,AC0 

R1,R0 
PC.SETERL 
(RO)* 
PC.SETERL 

#i6oo 

MMRO 



CORRECTING RO. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
TESTING BLOCKS 28-F AND 28-P. 
GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
TESTING BLOCKS 28-F AND 28-P. 

CORRECTING RO.B 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
TESTING BLOCKS 4-NN. 4-X, 4-Z AND 4-B8. 
60 SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
TESTING BLOCKS 4-NN. 4-X. 4-Z AND 4-B8. 

CORRECTING RO. 

GO SET ERROR LOOP TO APRS OF NEXT INST ;DPM002 

TESTING BLOCKS 33-J AND 33-P. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

TESTING BLOCKS 33-J AND 33-P. 

TURN OFF MEMORY MANAGEMENT. 
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SEQUENCE 



7796 



779/ 
7798 
7799 
7800 
7801 
7802 
7803 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7813 
7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 



041302 
041304 
041306 
041312 
041314 
041320 

041324 
041326 
041332 
041334 
041340 

04134", 
041346 
041352 
041354 
041360 

041364 
041366 
041372 
041374 
041400 

041404 
041406 
041412 
041414 
041420 
041424 



000004 
010200 
004737 
170530 
004737 
170537 

010200 
004737 
170430 
004737 
170437 

010200 
004737 
177030 
004737 
177037 

010200 
004737 
172430 
004737 
172437 

010200 
004737 
170330 
004737 
170337 
005037 



SSTTl test # 100 - ENABLE D-SPACE ( SEE I-SPACE FORCED, WDE 3 
'tEST*100 enable 0-SPACE ( SEE I-SPACE FORCED. MODE 3 



THIS IS A TEST THAT WILL ENABLE D-SPACE AND HAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORHALLY SHOULDN'T WILL CAUSE A 
HEnORY NANAGEHENT TRAP/ABORT. 

••**ALL REFERENCES ^0 HICRO-FLOWS REFER TO •FP11-F-2 REV A* FLOWS***** 

THE COFWENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE HICRO FLOWS 

AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 

INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 

DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 

INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



.SETTING UP RO. 

;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPn002 
.TESTING BLOCK 21-N. 

:G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPn002 
.•TESTING BLOCK 21-N. 

.•CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

.•TESTING BLOCKS 27-U. 27-T AND 27-R. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DP«002 

.•TESTING BLOCKS 27-U. 27-T AND 27-R. 

.•CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DP«002 
.•TESTING BLOCKS 28-L. 28-N AND 28-P. 
;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 
.•TESTING BLOCKS 28-L. 28-N AND 28-P. 

.CORRECTING RO. 

;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 

;TESTING BLOCKS 4-R. 4-T. 4-Z AND 4-B8. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 

.•TESTING BLOCKS 4-R. 4-T. 4-X. 4-Z AND 4-BB. 

.•CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 

; TESTING BLOCKS 33-L, 33-N AND 33-P. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 

.•TESTING BLOCKS 33-L. 33-N AND 33-P. 

:TURN OFF nEHORY HANAGEHENT. 





tSTlOO: SCOPE 






MOV 








PF ^FTFRI 


T^TF 






»/ on 


PC SFTFRL 


117760 


TSTF 


DATA 






R2 RO 




J^R 


PC SETERL 






a(R0)'f 


047430 


JSR 


PC SETERL 


1 1 7760 


CLRF 


DATA 






R2.R0 


042430 


JSR 


PC. SETERL 




LDCIF 


9(R0}*.AC0 


042430 


JSR 


PC, SETERL 


117760 


LDCIF 


DATA.ACO 




nov 


R2.R0 


042430 


JSR 


PC. SETERL 




LDF 


S(R0>-^.AC0 


042430 


JSR 


PC. SETERL 


117760 


LDF 


DATA.ACO 




MO)/ 


R2.R0 


042430 


JSR 


PC. SETERL 




STST 


a(RO>+ 


042430 


JSR 


PC. SETERL 


1 1 7760 


STST 


DATA 




CLR 


nwo 
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PAGE 



C 15 
84 



SEQUENCE 



7827 



04U30 

7828 041432 

7829 041434 

7830 041440 

7831 041442 



000004 
010200 
004737 
172440 
005037 



042430 
177572 



.S8TTL TEST 0 101 - ENABLE D-SPACE t SEE I-SPACE FORCED. NODE 4 
**************** *********** **********•****************«**•••••• 



TEST 101 



ENABlE D-SPACE t SEE I-SPACE FORCED. MODE 4 



THIS IS A TEST THAT WILL ENABLE D-SPACE AND MAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORHALLr SHOULDN'T WILL CAUSE A 
MEMORY MANAGEMENT TRAP/ABORT. ^ ^ 

••••ALL REFERENCES TO MICRO-FLOWS REFER TO •FP11-F-2 REV A* FLOWS***^^ 
THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN 60 TO THE MICRO FLOWS 
AND PINPOINT THE PROBLEM AREA. FROM THERE. HARDWARE ANALYSIS SHOULD BE EASIER. 
INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 
DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 
INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 

******************••***•**••*****••****•••••**' «*****•****••••• 

TST101: SCOPE 



MOV 

JSR 
LDF 
CLR 



R2.R0 
PC.SETERL 
-(RO).ACO 
MMRO 



SETTING UP RO. 
60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
TESTING BLOCKS 4-J. 4-X. 4-Z AND 4-88. 
TURN OFF MEMORY MANA6EMENT. 



0 15 
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SEQUENCE 



7832 



7833 
7834 
7835 
7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 
7852 



S8TTL TEST # 102 - ENABLE 0-SPACE I SEE 1-SPACE FORCED, MODE 5 

TEST*102 ENABLE D-SPACE % 3EE I-SPACE FORCED, MODE 5 

THIS IS A TEST THAT WILL ENABLE D-SPACE AND MAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
MEMORY MANAGEMENT TRAP/ABORT. _ ^ , ^ ^ 

****ALL REFERENCES TO MICRO-FLOWS REFER TO tFPII-F-Z REV A* FLOWS***** 
THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN 60 TO THE MICRO FLOWS 
AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 
DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 
INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



041446 

041452 
041456 


000004 

U 1 v^vv 

004737 
170550 


042430 


TST102: SCOPE 
MOV 
JSR 
TSTF 


R3,R0 

PC.SETERL 

a-(RO) 


041460 
041462 
041466 


010300 
004737 
170450 


042430 


MOV 
JSR 
CLRF 


R3.R0 

PCSETERL 

a-(RO) 


041470 
041472 
041476 


010300 
004737 
177050 


042430 


MOV 
JSR 
LDCIF 


R3,R0 

PCSETERL 

a-(R0),AC0 


041500 
041502 
041506 


010300 
004737 
172450 


042430 


MOV 
JSR 
LDF 


R3,R0 

PC.SETERL 

a-(R0),AC0 


041510 
041512 
041516 
041520 


010300 
004737 
170350 
005037 


042430 
177572 


MOV 
JSR 
STST 
CLR 


R3.R0 
PC.SETERL 
a-(RO) 
MMRO 



.•SETTING UP RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCK 21-U. 

CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 27-X. 27-T AND 27-R. 

.•CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST .•DPM002 
.•TESTING BLOCKS 28-S, 28-N AND 28-P. 

.•CORRECTING RO. 

;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 4-U. 4-T. 4-X. 4-Z AND 4-B8. 

.-CORRECTING RO. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.TESTING BLOCKS 33-S. 33-N AON 33-P. 
.-TURN OFF MEMORY MANAGEMENT. 
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PAGE 86 



SEQUENCE If 



7853 



7854 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 
7864 
7865 
7866 



041524 000004 



041526 
041532 
041536 
041542 
041546 
041552 
041556 
041562 
041566 
041572 
041576 



004767 
170567 
00476/ 
170467 
004767 
177067 
004767 
1 72'»67 
004767 
170367 
005067 



000676 
056222 
000666 
056212 
000656 
056202 
000646 
056172 
000636 
056162 
135770 



SSTTL TEST » 103 - ENABLE D-SPACE ft SEE I-SPACE FORCED, MODE 6 
■teST*103 * NABLE D-SPACE ft SEE I-SPACE FORCED. MODE 6 



THIS IS A TEST THAT WILL ENABLE D-SPACE AND HAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
HE«ORY HANAGfcHENT TRAP/ABORT, ^ , , 

****ALL REFERENCES TO HICRO-FLOWS REFER TO •FP11-F-2 REV A* FLOWS***** 
THE COCWENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 
AND PINPOINT THE PROBLEM AREA. FROM THERE. HARDWARE ANALYSIS SHOULD BE EASIER. 
INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 
DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 
INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



TST103: 



SCOPE 

.DSASL 

JSR 

TSTF 

JSR 

CLRF 

JSR 

LDCIF 

JSR 

LDF 

JSR 

STST 

CLR 

.ENABL 



AMA 

PC.SETERL 
DATA 

PC.SETERL 
DATA 

PC.SETERL 

DATA.ACO 

PC.SETERL 

DATA.ACO 

PC.SETERL 

DATA 

MMRO 

AMA 



DISABLE MODE 6 TO MODE 3 CONVERSION 
GO SET ERROR LOOP TO ADRS OF NEXT INST 
TESTING BLOCK 21-0. 

60 SET ERROR LOOP TO ADRS OF NEXT INST 
TESTING BLOCKS 27-DD. 27-T AND 27-R. 
GO SET ERROR LOOP TO ADRS OF NEXT INST 
TESTING BLOCKS 28-T. 28-rj ADN 28-P. 
GO SET ERROR LOOP TO ADRS OF NEXT INST 
TESTING BLOCKS 4-DD, 4-T. 4-X. 4-2 AND 
60 SET ERROR LOOP TO ADRS OF NEXT INST 
TESTING BLOCKS 33-T. 33-N AND 33-P. 
TURN OFF MEMORY MANAGEMENT. 
REENABLE MODE 6 TO MODE 3 CONVERSION 



;DPM002 

;DPM002 

;DPM002 

;DPM002 

4-88. 

;DPM002 



7867 



f 15 

CKFPCOO FP11F FLTG PNT PRT C MACRO H1113 30-OCT-81 11:15 PAGE 87 SEQUENCE U 

TEST # 1W - ENABLE 0-SPACE I SEE I-SPACE FORCED, NODE 7 

.S8TTL TESf # 104 - ENABLE D-SPACE i SEE I-SPACE FORCED, MODE 7 

'►TEST 104 ENABLE D-SPACE t SEE I-SPACE FORCED. MODE 7 

THIS IS A TEST THAT yiLL ENABLE D-SPACE AND MAKE IT RESIDENT SO THAT AN 
INSTRUCTION THAT ACCESSES I-SPACE WHEN IT NORMALLY SHOULDN'T WILL CAUSE A 
MEMORY MANAGEMENT TRAP/ABORT. 

****ALL REFERENCES TO HICRO-FLOUS REFER TO •FP11-F-2 REV A* FLOWS***** 
THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN 60 TO THE MICRO FLOWS 
AND PINPOINT THE PROBLEM AREA. FROM THERE. HARDWARE ANALYSIS SHOULD BE EASIER. 
INSTRUCTION GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 
DUE TO PROPER SETUP PURPOSES. I.E. THE LOCATION OR ADDRESS HAS TO BE 
INITIALIZED PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 



7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 



041602 
041604 
041606 
041612 
041616 
041622 
041626 
041632 
041636 
041642 
041646 
041652 
041656 
041662 
041666 
041672 
041676 
041702 
041706 



000004 
010200 
004737 
170470 
004737 
170477 
004737 
177070 
004737 
177077 
004737 
172470 
004737 
172477 
004737 
170370 
004737 
170377 
005037 



042430 
000000 
042430 
056142 
042430 
000000 
042430 
056122 
042430 
000000 
042430 
056)02 
042430 
000000 
042430 
056062 
177572 



NEXT INST •DPM002 
27-T AND 27-R. 
NEXT INST ;DPM002 



041712 000431 



♦««♦••♦♦••***••»**•*•*♦**•*•***••••*****•*•**••*****••••••*••** 

TST104; 

.•SETTING UP RO. 
;G0 SET ERROR LOOP TO ADRS OF 
.•TESTING BLOCKS 27-GG. 27-JJ. 
;60 SET ERROR LOOP TO ADRS OF 
.•TESTING BLOCKS 27-GG. 27-JJ. 27-T AND 27-R. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPMO0? 
.•TESTING BLOCKS 28-W, 28-Z. 28-N AND 28-P. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 28-W. 28-Z. 28-N AND 28-P. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 4-GG. 4-JJ. 4-T. 4-X 4-Z AND 4-fl8. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 4-G6. 4-JJ, 4-T. 4-X 4-Z AND 4-68. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 33-W. 33-Z. 33-N AN 33-P. 
;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
.•TESTING BLOCKS 33-W. 33-Z. 33-N AN 33-P. 
.•TURN OFF MEMORY MANAGEMENT. 

;BRANCH TO END OF TEST ROUTINE. 



SCOPE 




MOV 


R2,R0 


JSR 


PC.SETERL 


CLRF 


aO(RO) 


JSR 


PC.SETERL 


CLRF 


aDATA^IO 


JSR 


PC.SETERL 


LDCIF 


aO(RO),ACO 


JSR 


PC.SETERL 


Lb'IF 


iDATA+lO.ACO 


JSR 


PC.SETERL 


LDF 


aO(RO),ACO 


JSR 


PC.SETERL 


LDF 


aDATA^IO.ACO 


JSR 


PC.SETERL 


STST 


aO(RO) 


JSR 


PC.SETERL 


STST 


aDATA^^IO 


CIR 


MMRO 


BR 


ENDTST 



CKfPCDO FP11F FLTG PNT PRT C MACRO Mni3 30-0CT-81 
TRAP HANDLER FOR UNEXPECTED MEMORY MANAGEMENT AfiORTS 

7888 .S8TTL 

7889 0A17U 042737 000001 177572 TRAPV: BIC 

7890 04^722 013737 177572 001240 MOV 

7891 041730 005237 001240 INC 

7892 041734 013737 177576 001236 MOV 

7893 041742 005037 177572 CLR 

7894 041746 012637 001266 MOV 

7895 041752 012637 001270 MOV 

7896 041756 104362 ERROR 

7897 041760 013746 001270 MOV 

7898 041764 013746 001266 MOV 

7899 041770 005237 177572 INC 

7900 041774 000002 RTI 



G 15 
11:15 PAGE 88 



SEQUENCE 



TRAP HANDLER 
#1 .MMRO 
MMR0,$TMP3 
$TMP3 

MMR2.$TMP2 
MMRO 

(SP)*.$TMP16 
(SP)*,STMP17 
♦362 

ITMP17.-(SP) 
$TMP16,-(SP) 
MMRO 



FOR UNEXPECTED MEMORY MANAGEMENT ABORTS 
TURN OFF MEMORY MANAGEMENT. 
TRANSFER MMRO TO $TMP3 FOR ERROR PRINTING- 
REPLACE BIT CLEARED TURNING OFF MEMORY MANAGEMEN 
MOVE THE TRAP INSTRUCTION ADDRESS TO STMP13. 
CLEAR ERROR BITS. 
POP STACK AND SAVE 1ST CONTENTS. 
POP STACK AGAIN AND SAVE 2ND CONTENTS. 
FPP TRAP/ABORT ERROR CALL. 
PUSH 2ND SAVED CONTENTS BACK ON STACK. 
PUSH 1ST SAVED CONTENTS BACK ON STACK. 
TURN ON MEMORY MANAGEMENT. 
RETURN FROM INTERRUPT. 
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H 15 
PAGE 89 



7901 041776 

7902 042002 

7903 042010 
042010 



7904 042012 

7905 042016 

7906 042022 

7907 042026 

7908 042034 

7909 042042 

7910 042050 

7911 042056 

7912 042062 

7913 042066 

7914 042072 

7915 042076 

7916 042102 

7917 042106 

7918 042110 

7919 042112 

7920 042116 

7921 042122 

7922 042126 
7923 

7924 042132 

7925 042140 

7926 042146 

7927 042154 

7928 042162 
7929 

7930 042170 

7931 042176 

7932 042204 

7933 042212 

7934 042220 
7935 

7936 042226 

7937 042232 

7938 042240 

7939 042246 

7940 042254 
7941 

7942 042262 

7943 042266 

7944 042274 

7945 042302 

7946 042310 
7947 

7948 042316 

7949 042322 

7950 042330 

7951 042336 

7952 042344 



005037 
013737 

104412 



005037 
170127 
005037 
012737 
012737 
012737 
012737 
172437 
172537 
172637 
172737 
012700 
012701 
005020 
077102 
174037 
174137 
174237 
174337 

012737 
012737 
012737 
012737 
012737 

012737 
0U757 
012737 
012737 
012737 

005037 
012737 
012737 
012737 
012737 

005037 
012737 
012737 
012737 
012737 

012705 
013737 
012737 
012737 
013737 



177572 
001262 



177572 
040000 
001272 
000252 
125252 
125252 
125252 
045232 
045232 
045232 
045232 
045232 
000030 



045232 
045242 
045252 
045262 

077406 
077406 
077400 
077406 
077406 

077406 
077406 
077406 
077406 
077406 

172360 
000200 
000400 
000600 
177600 

172340 
000200 
000400 
000600 
177600 

045312 
000250 
044054 
000340 
000P20 



000250 



045232 
045234 
045236 
045240 



172320 
172322 
172324 
172326 
172336 

172300 
172302 
172304 
172306 
172316 



172362 
172364 
172366 
172376 



172342 
172344 
172346 
172356 



001262 
000250 
000252 
042426 



ENDTST: 
IDONE : 



CLR 

nov 

RSETUP 



CLR 

LDFPS 

CLR 

nov 
nov 

NOV 
NOV 

LOF 
LDf 
LDF 
LDF 
MOV 
MOV 
CLR 

soe 

STF 
STF 
STF 
STF 

MOV 
NOV 
MOV 
NOV 
NOV 

NOV 
NOV 
NOV 
NOV 
NOV 

CLR 
NOV 
NOV 
NOV 
NOV 

CLR 
NOV 
NOV 
NOV 
NOV 

NOV 
NOV 
NOV 
NOV 
NOV 



NNRO 

STNPU.NNVECT 



NNRO 

#40000 

$TNP20 

*252.ST0RE 

*125252,STORE*2 

*125252,ST0RE*4 

#125252. STORE+6 

STORE. ACO 

STORE, AC1 

STORE. AC2 

STORE. AC3 

*STORE,R0 

#30. R1 

(RO)* 

R1.1$ 

ACO. STORE 

AC1.STORE*10 

AC2.STORE+20 

AC3, STORE ^30 

#77406, KDPDRO 
#77406, KDPDR1 
#77400. KDPDR2 
#77406, ICDPDR3 
#77406, KDPDR7 

#77406, KIPDRO 
#77406,KIPDR1 
#77406,KIPDR2 
#77406, K1PDR3 
#77406.ICIPDR7 

KDPARO 
#200,KDPAR1 
#400.KDPAR2 
#600,KDPAR3 
#177600, KDPAR7 

KIPARO 

#200.KIPAR1 

#400,KIPAR2 

#600,KIPAR3 

#177600,KIPAR7 

#8YTABL,R5 

n«VECT,$TNP14 

#TRPV,NNVEC1 

#340,NNVECT+2 

lOTRAP.SAVIOT 



SEQUENCE 1C 



:TURN OFF MENORV MANAGEMENT. 

;RESTORE NNVECT TO ITS ORIGINAL CONTENTS. 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
NAKE SURE NENORY MANAGEMENT IS OFF. 
LOAD FLOATING POINT STATUS. 
CLEAR THE TEMPORARY LOCATION. 

CLEAR UPPER BYTE • ALTERNATING BITS IN LOWER BYTE. 

NOVE ALTERNATING BITS TO 2ND WORD. 

NOVE ALTERNATING BITS TO 3RD WORD. 

NOVE ALTERNATING BITS TO 4TH WORD. 

LOAD ACO. 

LOAD AC1. 

LOAD AC2. 

LOAD AC3. 

NOVE ADDRESS OF STORE TO RO. 
NOVE LOOP COUNTER (CLEARING 30 WORDS) TO R1 . 
CLEAR THE WORD. 

SUBTRACT 1 FROM R1 AND BRANCH IF NOT 0. 
STORE ACO. 
STORE AC I. 
STORE AC2. 
STORE AC3. 

NAKE KDPDRO RESIDENT. 
NAKE KDPDRl RESIDENT. 
NAKE KDPDR2 NON-RESIDENT. 
NAKE KDPDR3 RESIDENT. 
MAKE KDPDR7 RESIDENT. 



NAKE KIPDRO 
NAKE KIPDRl 
NAKE KIPDR2 
NAKE KIPDR3 
MAKE KIPDR7 



RESIDENT. 
RESIDENT. 
RESIDENT. 
RESIDENT. 
RESIDENT. 



NAP D-PAGE 0 FOR 0-4K. 
NAP D-PA6E 1 FOR 4-8K. 



NAP D-PAGE 
NAP D-PAGE 
NAP D-PAGE 



NAP I -PAGE 0 

NAP I -PAGE 1 

MAP I -PAGE 2 

NAP I -PAGE 3 

NAP I -PAGE 7 



FOR 8-1 2K. 
FOR 12-16K. 
FOR /O PAGE. 

FOR 0-4K. 
FOR 4-8K. 
FOR 8-1 2K. 
FOR 12-16K. 
FOR I/O PAGE. 



SET UP BYTE TABLE POINTER R5. 
TEMPORARILY STORE THE NNVECT VALUE. 
SET UP FOR FP TRAPS FOR THIS TEST. 

: STORE THE lOTRAP VALUE IN SAVIOT 
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7953 042352 
7954 

7955 042360 

7956 042366 

7957 042374 

7958 042400 

7959 042404 

7960 042410 

7961 042414 

7962 042420 

7963 042424 
7964 

7965 042426 
7966 

7967 042430 

7968 042434 

7969 042440 

7970 042444 



012737 000340 000022 



012737 
012737 
012700 
012702 
012703 
010037 
010237 
010337 
000410 

000000 

005037 
011637 
005237 
000207 



000024 172516 

045216 045226 

045216 

045226 

045230 

045272 

045274 

045276 



177572 
001110 
177572 



MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BR 

SAVIOT: .WORD 

SETERL: CLR 
MOV 
INC 
RTS 



#340,IOTRAP*2 

#24.MMR3 

/»N0DAT,NODAT*10 

«NODAT.RO 

#N0DAT*10,R2 

/VN0DAT^12.R3 

RO, STORE ♦40 

R2,STORE*42 

R3,ST0RE*44 

TST105 



MMRO 

(SP). SLPERR 
NMRO 

PC 



SEQUENCE 



TURN ON 22-8JT KERNEL D-SPACE. 

SET UP ADDRESS POINTER. 

SET UP RO. 

SET UP R2. 

SET UP R3. 

STORE RO. 

STORE R2. 

STORE R3. 

BRANCH OVER LOCATION SAVIOT AND SETERL SUBROUTINE 
LOCATION TO SAVE THE SCOPE VECTOR ADDRESS 



TURN OFF MEMORY MANAGEMENT 
MOVE RETURN ADDRESS TO SLPERR 
TURN MEMORY MANAGEMENT BACK ON 
RETJRN 



DPM002 
DPM002 
DPM002 
DPH002 
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11:15 PAGE 
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SEQUENCb 



042446 

7984 
7985 
7986 

7987 042450 

7988 042456 

7989 042462 

7990 042464 

7991 042470 

7992 042472 

7993 042476 

7994 042500 

7995 042504 
79% 042506 

7997 042512 

7998 042514 

7999 042520 

8000 042524 

8001 042530 

8002 042532 

8003 042534 



000004 



012737 
004737 
170501 
004737 
170401 
004737 
177001 
004737 
172401 
004737 
170301 
005037 
172437 
172537 
010046 
010246 
013737 



044006 000020 
042430 

042430 

042430 

042430 

042430 

177572 
045232 
045232 

042426 000020 



.S8TTL TEST * 105 - AUTO INCREHENT/DECREHENT TEST. MODE 0 
.*************************************************************** 

iTEST 105 AUTO INCREMENT/DECREMENT TEST. MODE 0 

• THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT yORKS PROPERLY AND 

• *ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-81 T KERNEL 

• D-SPACE, BUT MAKING IT NON-RESIDENT. FORCING A MEMORY MANAGEMENT TRAP 

• CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
♦••••ALL REFERENCES TO MICRO-FLOWS REFER TO •FP11-F-2 REV A* FLOWS***** 

• THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

• FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 

• BE EASIER. 
• 

•*■*»**••****•*•*••**********•******•*******•****************•** 

tST105: SCOPE 

;* THE FOLLOWING TESTS ARE FOR MODE 0 REG 1 (THESE SHOULD *NOT* ABORT) 



MOV #FALTRP,IOTRAP; 

JSR PC.SETERL 

TSTF R1 

JSR PC.SETERL 

CLRF R1 

JSR PC.SETERL 

LDCIF R1.AC0 

JSR PC.SETERL 

LDF R1.AC0 

JSR PC.SETERL 

STST Rl 

CLR MMRO 

LDF STORE. ACO 

LDF STORE .AC1 

MOV RO,-(SP) 

MOV R2.-(SP) 

MOV SAVIOT.IOTRAP 



SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
FDST-NOTCLR PAGE 21. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
FDST MODES PAGE 27. 

60 SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
SOURCE MODES PAGE 28. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPH002 
FSRC MODES PAGE 4. 

60 SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
DEST MODES PAGE 33. 
TURN OFF MEMORY MANAGEMENT. 
RESTORE ACO. 
RESTORE AC1. 
SAVE RO FOR NEXT TEST 
SAVE R2 FOR NEXT TEST 
RESTORE SCOPE TRAP VECTOR 
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SEQUENCE 



8004 



8005 
8006 

8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 



042542 
04254^ 
042546 
042550 
042556 
042560 
042562 
042566 
042570 
042572 
042576 
042600 
042602 
042606 
042610 
042612 
042616 
042620 
042622 
042626 
042630 
042632 
042636 
042640 
042642 



000004 
012602 
012600 
012737 
010001 
010004 
004737 
170511 
000004 
004737 
170411 
000004 
004737 
177011 
000004 
004737 
172411 
000004 
004737 
170311 
000004 
005037 
010046 
010246 
013737 



S8TTL TEST * 106 - AUTO INCREMENT/DECREMENT TEST. MODE 1 
iTEST 106 AUTO INCREMENT/DECREMENT TEST, MODE 1 

• THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 

« tONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-BIT KERNEL 

• D-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORY MANAGEMENT TRAP 

• CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 

• ••••ALL REFERENCES TO MICRO-.' LOUS REFER TO *FP11-F-2 REV A* FLOWS***** 

• THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

• FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 

• BE EASIER. 
* 

•*«********•*•**•*•••**••*••**•*••••***•••••••**•••••**•••••••*• 

tSTl06: SCOPE 







MOV 






MOV 


044006 


000020 


MOV 




M0DE1: 


MOV 






MOV 


042430 




JSR 




TSTF 






lOT 


042430 




JSR 




CLRF 






lOT 


042430 




JSR 






LDCIF 






lOT 


042430 




JSR 






LOF 






lOT 


042430 




JSR 






STST 






lOT 


177572 




CLR 






MOV 






MOV 


042426 


000020 


MOV 



(SP)*,R2 
(SP)*,RO 
/rFALTRP,IOTRAP; 
R0,R1 
R0,R4 
PCSETERL 
(R1) 

PCSETERL 
(R1) 

PCSETERL 
(RD.ACO 

PCSETERL 
(RD.ACO 

PCSETERL 
(Rl) 

MMRO 
RO,-(SP) 
R2.-(SP) 
SAVIOT,IOTRAP 



;RESTORE R2 FOR THIS TEST 
.RESTORE RO FOR THIS TEST 
SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 
;SET UP Rl. 

.•MOVE 'START' VALUE INTO R4. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
;FDST-NOTCLR PAGE 21. 
'FORCE A TRAP 

•60 SET ERROR 'loop TO ADRS OF NEXT INST ;DPM002 
;FDST MODES PAGE 27. 

.•FORCE A TRAP. 

:60 SET ERROR LOOP TO ADRS OF NEXT INST .•DPM002 
.SOURCE MODES PAGE 28. 
•FORCE A TRAP 

•GO SET ERROR 'loop TO ADRS OF NEXT INST ;DPM002 
.FSRC MODES PAGE 4, 
'FORCE A TRAP 

•go' SET ERROR'lOOP TO ADRS OF NEXT INST ;DPM002 
;DEST MODES PAGE 33. 
.•FORCE A TRAP. 

.'TURN OFF MEMORY MANAGEMENT. 
.'SAVE RO FOR NEXT TEST 
;SAVE R2 FOR NEXT TEST 
.•RESTORE SCOPE TRAP VECTOR 



CKFPCDO FP11F FLT6 PHI PRT C MACRO Mil 13 30-0CT-81 11:15 
TEST # 10' - AUTO INCREMENT/DECREMENT TEST. MODE 2 



L 15 
PAGE 92 



SEQUENCE 



8029 



OA26S0 

8030 042652 

8031 042660 

8032 042662 

8033 042664 

8034 042666 

8035 042672 

8036 042674 
8037 

8038 042676 

8039 042702 

8040 042704 

8041 042706 
8042 

8043 042710 

8044 042714 

8045 042716 

8046 042720 
8047 

8048 042722 

8049 042726 

8050 042730 

8051 042732 
8052 

8053 042734 

8054 042740 

8055 042742 

8056 042744 

8057 042746 

8058 042752 

8059 042760 

8060 042762 



000004 
012737 
012602 
012600 
01 000 1 
004737 
170521 
000004 

004737 
010001 
170421 
000004 

004737 
010001 
177021 
000004 

004737 
010001 
172421 
00U004 

004737 
010001 
170321 
000004 
005037 
013737 
010046 
010246 



SBTTL TEST » 107 - AUTO INCREMENT/DECREMENT TEST, MODE 2 



iTEST 107 



AUTO INCREMENT/DECREMENT TEST, MODE 2 



044006 000020 

042430 

042430 

042430 

042430 

042430 



* THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 

* •ONLr* WHEN IT IS SUPPOSED TO. THIS IS DONE Br ENABLING 22-BIT KERNEL 

* 0-SPACE. BUT MAKING IT NON-RESIDENT. FORCING A HEMORr MANAGEMENT TRAP 

* CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
•••••ALL REFERENCES TO MICRO-FLOWS REFER TO •FP11-F-2 REV A^ FLOWS^^*** 

* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO rOU CAN GO TO THE MICRO 

* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE. HARtWARE ANALYSIS SHOULD 

* BE EASIER. 

;*«******************•********•••*••****•*•••**•••••*••••••••••• 

TST107; SCOPE ,py^LTRP.IOTRAP;SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 

MOV (SP)*.R^ ;RESTORE R2 FOR THIS TEST 

MOV (:P)*.R0 .-restore RO FOR THIS TEST 

MOV R0.R1 .-CORRECT R1 

JSR PC.SETERL ;60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

TSTF (RD* .-fDST-NOTCLR PAGE 21. 

LABELI: lOT .-FORCE A TRAP. 



177572 
042426 



000020 



JSR 
MOV 
CLRf 
lOT 

JSR 
MOV 
LDCIF 
lOT 

JSR 
MOV 
LDF 
lOT 

JSR 

MOV 

STST 

lOT 

CLR 

MOV 

MOV 

MOV 



PC.SETERL 

R0.R1 

(RD* 



PC.SETERL 

RO.RI 

(R1)*.AC0 



PC.SETERL 

R0.R1 

{R1)*.AC0 



PC.SETERL 

R0.R1 

(R1)* 

MMRO 

SAVIOT.IOTRAP 

RO,-(SP) 

R2.-(SP) 



GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

CORRECT R1. 

FDST MODES PAGE 27. 

FORCE A TRAP. 

60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

CORRECT R1. 

SOURCE MODES PAGE 28. 

FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

CORRECT R1. 

FSRC MODES PAGE 4. 

FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

CORRECT R1. 

DEST MODES PAGE 33. 

FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
RESTORE SCOPE TRAP VECTOR 
SAVE RO FOR NEXT TEST 
SAVE R2 FOR NEXT TEST 
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SEQUENCE 



8061 



8062 

8063 

8064 

8065 

8066 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 

8081 

8082 

8083 

8084 

8085 

8086 

8087 

8088 

8089 

8090 

8091 

8092 

8093 

8094 

8095 

8096 

8097 

8098 

8099 

8100 

8101 

8102 

8103 



042764 
042766 
042774 
042776 
043000 
043004 
043006 
043010 
043012 
043014 
043020 
043024 

043026 
043032 
043034 
043036 
043040 
043044 
043050 

043052 
043056 
043060 
043062 
043064 
043070 
043074 

043076 
043102 
043104 
043106 
043110 
043114 
043120 

043122 
043126 
043130 
043132 
043134 
043140 



000004 
012737 
012602 
012600 
004737 
010201 
010204 
170531 
000004 
004737 
170537 
000004 

004737 
010201 
170431 
000004 
004737 
170437 
000004 

004737 
010201 
177031 
000004 
004737 
177037 
000004 

004737 
010201 
172431 
000004 
004737 
172437 
000004 

004737 
010201 
170331 
000004 
004737 
170337 



S8TTL TEST # 110 - AUTO INCREMENT/DECREMENT TEST. MODE 3 



•TEST 110 



AUTO INCREMENT/DECREMENT TEST. MODE 3 



* THJS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 

* *ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-BIT KERNEL 

* D-SPACE, BUT MAKING IT NON-RESIDENT. F0RCJN6 A MEMORY MANAGEMENT TRAP 

* CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
••••*ALL REFERENCES TO MICRO-FLOWS REFER TO •FPll-F-2 REV A* FLOWS***** 

* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE. HARDWARE ANALYSIS SHOULD 

* BE EASIER. 



044006 000020 



042430 



TST110: 



042430 
045216 



042430 



042430 
045216 



042430 



042430 
045216 



042430 



042430 
045216 



042430 



042430 
045216 





#FALTRP.IOT 


MOV 


MOV 


(SP)*,R2 




I Or/ ▼ .nU 


ICO 

Jon 


r L . OC 1 CnL 


nuv 


R? R1 


nuv 


R? R^ 


1 4 1 r 


w \n 1 / ^ 






JSR 


PC.lETERL 


TSTF 


NODAT 


inT 




JCR 
w on 


PC CPTFRI 


nuv 


n? R1 
'<c «n 1 


tLnr 


• \n 1 / * 


lUI 




JSR 


PC.SETERL 


CLRF 


NODAT 


iU 1 




KR 

J on 


PC sfterl 


nuv 






a^R1)> AfO 


lOT 




JSR 


PC.SETERL 


LDCIF 


NODAT. AGO 


lOT 




JSR 


PC.SETERL 


MOV 


R2.R1 


LDF 


a{R1}*.AC0 


lOT 




JSR 


PC.SETERL 


LDF 


NODAT. ACO 


lOT 




JSR 


PC.SETERL 


MOV 


R2.R1 


STST 


a(R1)* 


lOT 




JSR 


PC.SETERL 


STST 


NODAT 



;SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 
.•RESTORE R2 FOR THIS TEST 
.RESTORE RO FOR THIS TEST 

:G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
;SET UP R1 FOR MODE 3. 
.•MOVE 'START' VALUE INTO R4. 
;FDST-NOTCLR PAGE 21. 
'FORCE A TRAP 

•GO SET ERROR'lOOP TO ADRS OF NEXT INST ;DPM002 
.•FORCE A TRAP. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

.CORRECT R1. 

;FDST MODES PAGE 27. 

•FORCE A TRAP 

•60 SET ERROR* LOOP TO ADRS OF NEXT INST :DPM002 
.•FORCE A TRAP. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 

.•CORRECT R1. 

.•SOURCE MODES PAGE 28. 

'FORCE A TRAP 

•GO SET error' LOOP TO ADRS OF NEXT INST .DPM002 
; FORCE A TRAP. 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST .•DPM002 

.CORRECT R1. 

:FSRC NODES PAGE 4. 

•FORCE A TRAP 

•GO SET ERROR'lUOP TO ADRS OF NEXT INST .•DPM002 
.FORCE A TRAP. 

.'GO SET ERROR LOOP TO ADRS OF NEXT INST .•DPM002 

.'CORRECT R1. 

;DEST MODES PAGE 33. 

.'FORCE A TRAP. ^, 

.'60 SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 



Cl^FPCDO FP11F FLTG PNT PRT C MACRO M1113 30-OCT- 
TEST # 110 - AUTO INCREMENT/DECREMENT TEST. MODE 3 

8104 043144 000004 lOT 

8105 043146 005037 177572 CLR 

8106 043152 010046 MOV 

8107 043154 010246 MOV 

8108 043156 013737 042426 000020 MOV 



1 11;15 



N 15 
PAGE 93-1 



SEQUENCE 195 



MMRO 

RO.-(SP) 
R2,-(SP) 
SAVIOT.IOTRAP 



FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
SAVE RO FOR NEXT TEST 
SAVE R2 FOR NEXT TEST 
RESTORE SCOPE TRAP VECTOR 



CKFPCDO fPlU fLTG PHT PRT C HACRO M1113 30-0CT-81 11:15 
TEST • 111 - AUTO INCRE«€NT/DECRE«ENT TEST. MODE 4 



B 16 
PAGE 94 



SEQUENCE 



8109 



8110 
8111 
8112 
8113 
8114 
8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 



043164 
043166 
043174 
043176 
043200 
043204 
043206 
043210 

043212 
043216 
043220 
043222 

043224 
043230 
043232 
043234 

043236 
043242 
043244 
043246 

043250 
043254 
043256 
043260 
043262 
043266 
043270 
043272 



000004 
012737 
012602 
012600 
004737 
010201 
170541 
000004 



S8TTL TEST # 111 - AUTO INCREMENT/DECREMENT TEST. MODE 4 
'test m AUTO INCREHENT/DECREHENT TEST, MODE 4 



044006 000020 



042430 



004737 042430 
010201 
170441 
000004 

004737 042430 
010201 

17704'' 
000004 

004737 042430 
010201 
172441 
000004 

004737 042430 
010201 
170341 
000004 

005037 177572 

010046 

010246 

013737 042426 000020 



THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLr AND 
•ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE Br ENABLING 22-8IT KERNEL 
D-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORr MANAGEMENT TRAP 
CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
••••ALL REFERENCES TO MICRO-FLOWS REFER TO •FP11-F-2 REV A^ FLOWS*^*^* 
THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 
.'LOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
BE EASIER. 

*************************************************************** 

TST111: SCOPE 

mn\j «FAi TRP .rnTftAP:SF. _ . . . ... 

RESTORE R2 FOR THIS TEST 
RESTORE RO FOR THIS TEST 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
SET UP R1 FOR MODE 4. 
FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
CORRECT R1. 
FDST MODES PAGE 27. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPn002 
CORRECT R1. 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
CORRECT R1. 
FSRC MODES PAGE 4. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
CORRECT R1. 
DEST MODES PAGE 33. 
FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
SAVE RO FOR NEXT TEST 
SAVE R2 FOR NEXT TEST 
RESTORE SCOPE TRAP VECTOR 



MOV 


#FALTRP,IOTRAP 


MOV 


(SP)*, R2 


MOV 


(SP)*,RO 


JSR 


PCSETERL 


MOV 


R2,R1 


TSTF 


-(R1; 


WAV 

JOT 




JSR 


PCSETERL 


MOV 


R2,R1 


ft r>p 

CLRF 


-(Rl ) 


lOT 




JSR 


PCSETERL 


MOV 


R2,R1 


LDCIf 


-(R1),AC0 


lOT 




JSR 


PCSETERL 


MOV 


R2,R1 


LDF 


-(R1),AC0 


lOT 




JSR 


PCSETERL 


MOV 


R2,R1 


STST 


-(R.) 


lOT 




CLR 


MMRO 


MOV 


RO.-(SP) 


MOV 


R2.-(SP) 


MOV 


SAVIOT.IOTRAP 



Cl^FPCDO FP11F FLTG PNT PRT C MACRO H1113 30-0CT-81 11:15 PAGE 
TEST # 112 - AUTO INCREHENT/OECREMENT TEST. MODE 5 



C 16 
95 



SEQUENCE 197 



8141 



8U2 

8U3 

8U4 

8K5 

8U6 

8U7 

8U8 

8U9 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 

8161 

3162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 



043300 
043302 
043310 
043312 
043314 
043320 
043322 
043324 
043326 

043330 
043334 
043336 
043340 

043342 
043346 
043350 
043352 

043354 
043360 
043362 
043364 

043366 
043372 
043374 
043376 
043400 
0A3404 



S8TTL TEST # 112 - AUTO INCREMENT/DECREMENT TEST. MODE •> 



•TEST 112 



AUTO INCREMENT/DECREMENT TEST, MODE 5 



* THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLV AND 

* *ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BV ENABLING 22-BIT KERNEL 

* D-SPACE, BUT MAKING IT NON-RESIDENT. FORCING A HEMORV MANAGEMENT TRAP 

* CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
*****ALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A* FLOWS***** 

* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN 60 TO THE MICRO 

* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 

* BE EASIER. 



000004 TST112: 
012737 044006 000020 
012602 
012600 

004737 042430 

010301 

010304 

170551 

000004 

004737 042430 
010301 
170451 
000004 

004737 042430 
010301 
177051 
000004 

004737 042430 
010301 
172451 
000004 

004737 042430 
010301 
170351 
000004 

005037 177572 

013737 042426 C00020 



crnoc 


#FALTRP-IOTRAP 


NOV 


MOV 


(SP)*,R2 






ICO 

Jon 


or CPTPDI 


nuv 




MOV 


R3.R4 


TSTF 


a-(Ri) 






ICR 


PC CFTPRI 


nuv 




ri DF 

LLnr 


• In 1 / 


lOT 




JSR 


PC.SETERL 


MOV 


R3.R1 


LDCIF 


i-(R1),AC0 


lOT 




JSR 


PC.SETERL 


MOV 


R3.R1 


LOF 


a-(Rl).ACO 


lOT 




JSR 


PC.SETERL 


MOV 


R3.fi1 


STST 


a-(R1} 


lOT 




CLR 


MMRO 


MOV 


SAVIOT.IOTRAP 



#FALTRP-IOTRAP;SET UP FOR FAILURE OF TRAPS FOR THIS TEST, 
jRESTORE R2 FOR THIS TEST 
;RESTORE RO FOR THIS TEST 

;G0 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
;SET UP RI FOR MODE 5. 
;MOVE 'START* VALUE INTO R4. 
;FDST-NOTCLR PAGE 21. 
;FORCE A TRAP. 

60 SET ERROR LOOP TO AORS OF NEXT INST ;D^M002 
CORRECT RI. 
FDST MODES PAGE 27. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NtXT INST .•DPM002 
CORRECT RI. 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
CORRECT RI. 
FSRC MODES PA6E 4. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
CORRECT RI. 
DEST MODES PAGE 33. 
FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
RESTORE SCOPE TRAP VECTOR 



CKPPCDO FP1U FLT6 PNT PRT C HACRO M1113 30-0CT-81 11:15 PACE 
TEST # 113 - AUTO INCREMENT/DECREMENT TEST, NODE 6 



D 16 
96 



SEQUENCE 



8172 



043412 

81 73 

8174 043414 

8175 043422 

8176 043426 

8177 043430 

8178 043432 

8179 043436 
6180 043440 

8181 043444 

8182 043450 

8183 043452 

8184 043456 

8185 043462 

8186 043464 

8187 043470 

8188 043474 

8189 043476 

8190 043502 

8191 043506 

8192 043510 

8193 043514 

8194 043520 

8195 043522 

8196 043526 

8197 043532 

8198 043534 

8199 043540 

8200 043544 

8201 043546 

8202 043552 

8203 043556 

8204 043560 

8205 043564 

8206 043570 

8207 043572 

8208 043576 

8209 043600 
8210 



000004 

012767 
004767 
010301 
010304 
170561 
000004 
004767 
170567 
000004 
004767 
170461 
000004 
004767 
170467 
000004 
004767 
1 77061 
000004 
004767 
1 77067 
000004 
004767 
172461 
000004 
004767 
172467 
000004 
004767 
170361 
000004 
004767 
170367 
000004 
005067 
010246 
016767 



S8TTL TEST # 113 - AUTO INCREMENT/DECREMENT TEST, MODE 6 

• *************************************************************** 

iTEST 113 AUTO INCREMENT/DECREMENT TEST, MODE 6 

* THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLr AND 

* •ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-8IT KERNEL 

* D-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORY MANAGEMENT TRAP 

* CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
•****ALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A* FLOWS***** 

* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 

* BE EASIER. 
* 

• ***••••*••*•♦•♦•••*«•••*•**•♦•********••*•*••* ******** 

TST113: SCOPE 

DISABLE MODE 6 TO MODE 3 CONVERSIONS 
T UP FOR FAILURE OF TRAPS FOR THIS TEST. 
GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
SET UP R1 FOR MODE 6. 
MOVE 'START' VALUE INTO R4. 
FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
FDST MODES PAGE 27. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
FDST MODES PAGE 27. 
FORCE A TRAP. 

60 SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
FSRC MODES PAGE 4. 
FORCE A TRAP 

GO SET ERROR 'loop TO ADRS OF NEXT INST ;DPM002 
FSRC MODES PAGE 4. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST :DPM002 
DEST MODES PAGE 33. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT INST ;DPM002 
DEST MODES PAGE 33. 
FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
SAVE R2 FOR NEXT TEST 
RESTORE SCOPE TRAP VECTOR 
REENABLE MODE 6 TO MODE 3 CONVERSIONS 





.DSABL 


AMA 


044006 134376 


MOV 


#FALTRP,IOTRAP;SE 


177002 


JSR 


PCSETERL 




MOV 


R3,R1 




MOV 


R3,R4 


000000 


TSTF 


0(R1> 




lOT 




176764 


JSR 


PCSETERL ; 


001546 


TSTF 


NODAT 




lOT 




176752 


JSR 


PCSETERL ; 


000000 


CLRF 


0(R1) 




lOT 




176740 


JSR 


PCSETERL ; 


001522 


CLRF 


NODAT 




lOT 




176726 


JSR 


PCSETERL ; 


000000 


LDCIF 


0(R1),AC0 ; 




lOT 




176714 


JSR 


PCSETERL 


001476 


LDCIF 


NODAT, ACO ; 




lOT 




176702 


JSR 


PCSETERL ; 


000000 


LDF 


0(R1),AC0 ; 




lOT 




176670 


JSR 


PCSETERL ■ 


001452 


LDF 


NODAT, ACO : 




lOT 




176656 


JSR 


PCSETERL ; 


000000 


STST 


0(R1) 




lOT 




176644 


JSR 


PCSETERL ) 


001426 


STST 


NODAT ; 




lOT 




133774 


CLR 


MMRO 




MOV 


R2,-(SP) ; 


176622 134212 


MOV 


SAVIOT,IOTRAP . 




.ENABL 


AMA 



CKFPCOO FP11F FLTG PNT PRT C HACRO H1 113 30-0CT-81 11; 15 
TEST « 1U - AUTO INCREMENT/DECREMENT TEST< NODE 7 



E 16 
PAGE 97 



SfOUENCE 199 



8211 



.SBTTL TEST # 1U - AUTO INCREMENT/DECREMENT TEST. MODE 1 



•TEST 114 



AL'TO INCREMENT/DECREMENT TEST, MODE 7 



* THIS TEST INSURES THAT AUTO INCREHENT/DECREHENT WORKS PROPERLY AND 

* *ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE BY ENABLING 22-61 T KERNEL 

* D-SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORY MANAGEMENT TRAP 

* CONDITION. THIS ENABLES EXAMINING OF SRI FOR PROPER CONTENTS. 
*****ALL REFERENCES TO MICRO-FLOWS REFER TO •FPll-F-2 REV A* FLOWS***** 

* THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 

* FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 

* BE EASIER. 
* 

• ♦«*»***»*****•*••••••»*••***•*•*•***•***•*•#**•*••**•••••»•*•*• 



043606 


000004 




TST114: 


SCOPE 


8212 043610 


012737 


044006 


000020 


MOV 


8213 043616 


012602 






MOV 


8214 043620 


004737 


042430 




JSR 


8215 043624 


010201 






MOV 


3216 043626 


010204 






MOV 


8217 043630 


170571 


000000 




TSTF 


8218 043634 


000004 






lOT 


8219 043636 


004737 


042430 




JSR 


8220 043642 


170577 


001360 




TSTF 


8221 043646 


000004 






lOT 


8222 043650 


004737 


042430 




JSR 


8223 043654 


170471 


000000 




CLRF 


8224 043660 


000004 






lOT 


8225 043662 


004737 


042430 




JSR 


8226 043666 


170477 


001334 




CLRF 


8227 043672 


000004 






lOT 


8228 043674 


004737 


042430 




JSR 


822-» 043700 


177071 


000000 




LDCIF 


8230 043704 


000004 






lOT 


8231 G<»3706 


004737 


042430 




JSR 


8232 043712 


177077 


001310 




LDCIF 


8233 043716 


000004 






lOT 


8234 043720 


004737 


042430 




JSR 


8235 043724 


172471 


000000 




LDF 


8236 043730 


000004 






lOT 


8237 043732 


004737 


042430 




JSR 


8238 043736 


172477 


001264 




LDF 


8239 043742 


000004 






lOT 


8240 043744 


004737 


042430 




JSR 


8241 043750 


170371 


000000 




STST 


8242 043754 


000004 






lOT 


8243 043756 


004737 


042430 




JSR 


8244 043762 
82 '.5 043766 


170377 


001240 




STST 


000004 






lOT 


8246 043770 


005037 






CLR 


8247 043774 


013737 


042426 


000020 


MOV 


8248 044002 


000137 


045376 




JMP 



#FALTRP.IOTRAP; 

(SP)+,R2 

PCSETERL 

R2.R1 

R2,R4 

aO(R1} 

PCSETERL 
BNODAT^IO 

PCSETERL 
aO(Rl) 

PCSETERL 
aNODATtIO 

PCSETERL 
aO(Rl),ACO 

PCSETERL 
aNODAT4^10,AC0 

PCSETERL 
a0(R1),AC0 

PCSETERL 
aN0DAT*10,AC0 

PCSETERL 
aO(R1) 

PCSETERL 
aWODAT+IO, 

MMRO ? 

SAVIOT,IOTRAP 

ENDTES 



SET UP FOR FAILURE OF TRAPS FOR THIS 
RESTORE R2 FOR THIS TEST 
GO SET ERROR LOOP TO ADRS OF NEXT 
SET UP R1 FOR MODE 7. 
MOVE 'START* VALUE TO R4. 
FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
FDST MODES PAGE 27. 
FORCE A TRAP. 

60 SET ERROR LOOP TO ADRS OF NEXT 
FDST MODES PAGE 27. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
SOURCE MODES PAGE 28. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
FSRC MODES PAGE 4. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
FSRC MODES PAGE 4. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
DEST MODES PAGE 33. 
FORCE A TRAP. 

GO SET ERROR LOOP TO ADRS OF NEXT 
DEST MODES PAGE 33. 
FORCE A TRAP. 

TURN OFF MEMORY MANAGEMENT. 
RESTORE SCOPE TRAP VECTOR 
JUMP TO END TEST. 



TEST. 
INST ;DPM002 

INST ;DPM002 
INST ;DPM002 
INST ;DPM002 
INST ,0PM002 
INST ;DPM002 
INST ;DPM002 
INST :DPM002 
INST ;0PM002 
INST ;DPM002 



CKfPCOO FPHF FLTG PNT PftT C HACRO 
TEST » lU - AUTO INCREHENT/OECREWNT 



mii3 

TEST. 



30-0CT-81 
MODE 7 



11:15 PAGE 



F 16 
98 



SEQUENCE 200 



82A9 
8250 
8251 
8252 
8253 
825A 
825S 
8256 
8257 
8258 
8259 
8260 
8261 
8262 
8263 
8264 
826:> 
8266 



0A4006 
04A012 



0AA016 
04402A 
044032 
044040 
044042 
044050 



005037 
011637 



177572 
001260 



FALTRP: 



CLR 
MOV 



mRO 

(SP).$THP13 



;TURN OFF MEMORY MANAGEMENT. 

;MOVE NEXT"INSTRUCTION ADDRESS TO STMP13. 



162737 


000002 


001260 


1$: 


sue 


012737 


1 70000 


044036 




MOV 


047727 


135222 


1 70000 


2$: 


BiC 


001366 








BNE 


012737 


000364 


001272 




MOV 


000137 


045104 






JMP 



THIS NEXT SECTION NOW CORRECTS THE CONTENTS OF $TMP13 SO THAT IT POINTS 
TO THE PREVIOUS FPP INSTRUCTION. IT DOES THIS Br SUBTRACTING 2 FROM THE 
ADDRESS IN $THP13, REPLACING THE 170000 THAT THE BIC INSTRUCTION USES. 
AND BIT CLEARING THE INSTRUCTION WITH 170000. IF THE INSTRUCTION THAT 
$TMP13 IS POINTING TO IS NOT AN FPP INSTRUCTION. THE 170000 WILL NOT 
CLEAR, ..ATI SPYING THE NEXT BRANCH. THE ADDRESS IS AGAIN CORRECTED. 
AND THE TESTING PROCESS STARTS OVER. THIS CONTINUES UNTIL $TMP13 IS 
POITING TO AN FPP INSTRUCTION. AND NORMALLY WILL NOT BE EXECUTED MORE 
THAN THREE TIMES BEFORE FINDING THE INSTRUCTION. 
#2^1TMP13 .-SUBTRACT 2 FROM $TMP13. 

#1^0000. 2$*4 ;SET UP BIC DATA LOCATION. 
aSTMPI 3, #170000 .-TEST TO SEE IF FPP INSTRUCTION. 
1$ .-BRANCH BACK FOR ANOTHER TRY IF NOT, 

#364,$TMP20 .-MOVE FAILURE TO ABORT ERROR TO $TMP20. 
MULTER .-JUMP TO MULTIPLE ERROR HANDLER. 



( 

I 

1 



CKFPCDO FPllF FLT6 PNT PRT C MACRO M1113 30-0CT-81 11:15 PAGE 
TEST # IK - AUTO INCREHENT/DECREHENT TEST. MODE 7 



6 16 
99 



SEQUENCE 201 



8267 044054 

8268 044062 

8269 044070 

8270 044074 

8271 044102 

8272 044110 

8273 044112 

8274 044116 

8275 044124 

8276 044132 

8277 044136 

8278 044144 

8279 044152 

8280 044154 

8281 044162 

8282 044166 

8283 044170 
8284 

8285 
8286 
8287 
8288 
8289 
8290 
8291 

8292 0A4172 

8293 0A4200 

8294 044206 

8295 044210 

8296 044214 

8297 044220 

8298 044222 

8299 044230 

8300 04A236 

8301 044242 

8302 044250 

8303 044252 
8504 044256 

8305 044262 

8306 044266 

8307 044274 

8308 044302 

8309 044306 

8310 044312 

8311 044314 

8312 044316 

8313 044322 

8314 044324 

8315 044330 

8316 044336 

8317 044340 

8318 044344 

8319 044352 

8320 044356 

8321 044362 

8322 044370 

8323 044374 



013737 
013737 
005037 
112737 
022737 
002402 
0C0137 
017737 
112737 
005037 
012737 
022737 
100053 
012737 
043727 
000060 
001444 



177574 
177576 
177572 
000365 
042556 

045104 
135136 
000363 
001240 
044330 
042674 

000060 
001266 



001236 TRPV: 
001260 

001272 
001260 



001266 1$: 
001272 

001244 
001260 



044166 



042737 


177770 


001266 


023727 


001266 


000007 


001405 






010437 


001270 




010137 


001240 




000410 






013737 


001260 


001270 


062737 


000002 


001270 


011637 


001240 




163737 


001270 


001240 


001414 






006337 


001240 




006337 


001240 




006337 


001240 




042737 


177400 


001240 


063737 


001266 


001240 


111537 


001276 




123725 


001236 




001004 






005305 






123725 


001240 




001402 






000137 


045002 




132737 


000001 


001273 


001402 






000137 


045166 




112737 


000366 


001272 


010037 


045310 




005037 


001236 




012737 


044426 


001244 


173437 


045232 




170000 







2S: 
200S: 



61S: 



62S: 



MOV 
MOV 
CLR 
MOVB 
CMP 
BLT 
JMP 
MOV 
MOVB 
CLR 
MOV 
CMP 
BPL 
MOV 
BIC 
.yORD 
BEQ 



SR1-STHP2 

MMR2.STHP13 

MMRO 

*365.$TMP20 

*M0DE1.$TMP13 

1$ 

MULTER 

a$TMP13.$THP16 

#363.$TMP20 

$TMP3 

#65$,$THP5 

#LA8EL1,$TMP13 

61$ 

#60.200$ 
$TMP16.(PC)* 
60 
61S 



IH ERROR POINTER. 
MODE 1 (MODE 0). 



1 CLRF INST. 



MOVE SRI TO $TMP2 FOR TESTING. 

TRANSFER ADDRESS OF INST. CAUSING TRAP TO $TMP13. 
TURN OFF MEMORY MANAGEMENT. 
MOVE 365. THE MODE 0 ERROR. TO LOWER BYTE 
SEE IF INSTRUCTION CAUSING TRAP IS BEFORE 
BRANCH AROUND MODE 0 ERROR JUMP IF NOT. 
JUMP TO ERROR NEST 

MOVE INSTRUCTION CAUSING TRAP TO $TMP16. 
MOVE 363. SRI WRONG ERROR. TO LOWER BYTE IN ERROR POINTER. 
CLEAR CALCULATED LOCATION. 
MOVE NEXT CHECK ADDRESS TO $TMP5. 
SEE IF TRAP IS BEFORE MODE 2 REG 
BRANCH TO SR1=0 TEST IF SO. 
SET UP BIC DATA POSITION. 
TEST TO SEE IF MODE 6 OR 7 INSTRUCTION. 
LOCATION TO HOLD 60 

BRANCH DIRECTLY TO BYTE TABLE TESTING IF SO. 
.-THIS NEXT ROUTINE DETERMINES WHICH REGISTER WAS IN THE INSTRUCTION. AND 
.•LOADS THE START AND END VALUES OF EITHER R1 OR R7 (PROGRAM COUNTER) INTO 
;$TMP17 AND $TMP3 RESPECTIVELY. THEY ARE THEN SUBTRACTED TO FIND THE 
.•DIFFERENCE THAT ACTUALLY OCCURED. IF NO DIFFERENCE WAS FOUND. THE TEST 
:FOR ZERO IN SR1 IS ACCOMPLISHED. IF A DIFFERENCE IS FOUND. THE DIFFERENCE 
;IS SHIFTED LEFT 3 PLACES, THE TOP BYTE IS CLEARED. AND THE REGISTER 
THE INSTRUCTION IS ADDED. $TMP3 NOW CONTAINS WHAT SHOULD APPEAR 
SRI , ACCORDING TO WHAT ACTUALLY HAPPENED TO THE REGISTER 



;0F 

;IN 

BIC 

CMP 

BEQ 

MOV 

MOV 

BR 

NOV 

ADO 

MOV 

SUB 

BEQ 

ASL 

ASL 

ASL 

BIC 

ADD 

MOVB 

CMPB 

BNE 

DEC 

CMPB 

BEQ 

JMP 

BITB 

BEQ 

JMP 

MOVB 

MOV 

CLR 

MOV 

CHPF 

CFCC 



#177770.$TMP16 
$TMP16.*7 
5$ 

R4.$TMP17 
R1 .$TMP3 
6$ 

$THP13.$TMP17 

*2,$THP17 

(SP).$TMP3 

$TMP17,$TMP3 

61$ 

$TnP3 

$THP3 

$THP3 

*1 77400. $TMP3 

$TMP16,$TMP3 

(R5).$TMP22 

$TMP2.(R5)» 

62$ 

R5 

ST«P3.(R5)* 

65$ 

7$ 

*1.$THP20*1 
66i 

RETURN 
*366,$THP20 
RO.STORE+56 
$TMP2 

#101$.$THP5 
STORE, ACO 



BIT CLEAR THE INSTRUCTION, LEAVING THE REG EXPOSED. 

COMPARE REGISTER TO DETERMINE IF IT IS REG 7. 

BRANCH TO THE REG 7 SETUP IF EQUAL TO REG 7. 

MOVE THE START VALUE TO $TMP17. 

MOVE THE END VALUE TO $TMP3. 

BRANCH TO CONTINUE. 

HOVE THE START VALUE TO $TMP17. 

ADO 2 TO START VALUE FOR NORMAL INCREMENTING. 

MOVE THE END VALUE TO $TMP3. 

FIND THE DIFFERENCE THAT OCCURED. 

BRANCH TO TEST FOR SR1=0 IF NO DIFFERENCE. 

ARITHMETIC SHIFT LEFT $TMP3 3 

PLACES TO PUT DIFFERENCE FOUND 

IN BITS 3 THROUGH 7. 

BIT CLEAR UPPER BYTE OF $TMP3. 

ADD THE REGISTER THAT WAS CHANGED, AND 

MOVE EXPECTED DATA TO $TMP22. 

COMPARE SRI WITH TABLE DATA. 

BRANCH TO ERROR JUMP IF WRONG. 

CORRECT R5 BEFORE NEXT COMPARE. 

COMPARE CALCULATED WITH TABLE DATA. 

BRANCH AROUND ERROR JUMP IF OK. 

JUMP TO ERROR REPORT IF INCORRECT. 

TEST TO SEE IF BIT 8 IS SET. 

BRANCH AROUND AC SKIP JUMP IF NOT. 

JUMP TO RETURN - AC TESTS ARE TO BE SKIPPED. 

MOVE 366, AC LOAD ERROR, TO ERROR POINTER. 

STORE RO FOR USE LATER IN THIS ROUTINE. 

MOVE A '0' IN 'AC CHANGED' LOCATION. 

MOVE RETURN TQ $TMP5. 

SEE IF ACO WAS CHANGED. 

COPY FPP CONDITION CODES TO CPU CODES. 
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H 16 
99-1 



SEQUENCE 202 



8324 044376 

8325 044400 

8326 044404 
8327 

8328 
8329 
8330 
8331 
8332 
8333 
8334 
8335 
8336 
8337 
8338 
8339 

8340 044410 

8341 044414 

8342 044420 

8343 044422 

8344 044424 

8345 044426 

8346 044434 

8347 044442 

8348 044446 

8349 044450 

8350 044452 

8351 044456 

8352 044462 

8353 044466 

8354 044472 

8355 044474 

8356 044476 

8357 044500 

8358 044506 

8359 044514 

8360 044520 
8561 044522 

8362 044524 

8363 044530 

8364 044534 

8365 044540 

8366 044544 

8367 044546 

8368 044550 

8369 044552 

8370 044560 

8371 044566 

8372 044572 

8373 044574 

8374 044576 

8375 044602 

8376 044606 

8377 044612 

8378 044616 

8379 044620 

8380 044622 



001413 

174037 045300 
012700 045232 



172437 
173437 
170000 
001567 
000476 
012737 
012737 
^"'3537 
170000 
001413 
174137 
012700 
172537 
173537 
170000 
001542 
000451 
012737 
012737 
173637 
170000 
001413 
174237 
012700 
172637 
173637 
170000 
001515 
000424 
012737 
012737 
173737 
170000 
001416 
174337 
012700 
172737 
173737 
170000 
001470 
012737 



BEQ 
STF 
MOV 
THE NEXT TWO 
TO MAKE SURE 



101$ 

AC0,STORE*46 
#STORE.RO 



001236 
001244 



101$: 



001236 
001244 



102$: 



045232 
045232 



000001 
044500 
045242 



045300 
045242 
045242 
045242 



000002 
044552 
045252 



045300 
045252 
045252 
045252 



000003 
044632 
045262 



045300 
045262 
045262 
045262 



000770 001272 113$: 



BRANCH TO NEXT TEST IF OK. 
STORE ACTUAL ACO FOR ERROR PRINTING. 
MOVE ADDRESS OF EXPECTED ACC TO RO. 
INSTRUCTIONS TRY TO RESTORE THE ACCUMULATOR AND CHECK THE ACCUMULATOR 
IT WAS RESTORED PROPERLY FOR THE NEXT RUN THROUGH THIS TRAP hA>',)LER. 
IT IS •IMPORTANT* TO REALIZE THAT IF THE "CMPF" FINDS A DIFFERENCE, THAT THE 
*FLOATING*POINT*STATUS* IS BEING CHANGED MISTAKENLY. AN ERROR IN THE MICRUC 'DE 
HAS BEEN FOUND TO CAUSE THIS, SO CHECK THE REVISION OF THE ROM/PROM SET IN T^E 
FPP YOU HAVE. IF YOU DO HAVE WHAT •SEEMS* TO BE THE LATEST REV, A NEW REV WL ' 
BE COMMING OUT TO CORRECT THIS PROBLEM. THIS SAME 'IDF/CMPF'* SET OF RESTORE/ 
CHECK INSTRUCTIONS IS ACCOMPLISHED FOR EACH ACCUMULATOR CHECK. IT IS ALSO 
IMPORTANT TO NOTE THAT IF AN ACCUMULATOR FAILS TO RESTORE PROPERLY, SUBSEQUENT 
PASSES THROUGH THE TRAP HANDLER WILL SKIP THE ACCUMULATOR CHECKS DUE TO THE 
BIT TEST #400 ABOVE. FOR EXAMPLE, IF ACO FAILS TO LOAD PROPERLY, ACT THROUGH 
AC3 WILL STiLL BE CHECKED. AS SOON AS ANOTHER FPP INSTRUCTION TRAPS IN THE 
•FURTHER* AC0-AC3 CHECKS WILL BE SKIPPED. 



001236 
001244 



MAIN TEST. ALL 
LDF 
CMPF 
CFCC 
BEQ 
BR 
MOV 
MOV 
CMPF 
CFCC 
BEQ 
STF 
MOV 
LDF 
CMPF 
CFCC 
BEQ 
BR 
MOV 
MOV 
CMPF 
CFCC 
BEQ 
STF 
MOV 
LDF 
CMPF 
CFCC 
BEQ 
BR 
MOV 
MOV 
CMPF 
CFCC 
BEQ 
STF 
MOV 
LDF 
CMPF 
CFCC 
BEQ 
MOV 



103$: 



STORE, ACO 
STORE, ACO 

7$ 

113$ 

#1 .$TMP2 

#102$,$TMP5 

ST0RE*10,AC1 

102$ 

AC 1, STORE +46 
#ST0RE*10,R0 
ST0RE*10,AC1 
ST0RE+10,AC1 

7$ 

113$ 

*2,$TMP2 
*103$,$TMP5 
STORE ♦20,AC2 

103$ 

AC2,ST0RE*46 
#ST0RE*20,R0 
STORE+20,AC2 
STORE^20,AC2 

7$ 

113$ 

*3.$TMP2 

#100$,5TMP5 

ST0RE*30,AC3 

100$ 

AC3, STORE ^46 
/rST0RE*30.R0 
STORE*30.AC3 
ST0RE+30.AC3 

7$ 

/r770,$TMP20 



RESTORE ACO. 
SEE IF IT WAS RESTORED PROPERLY. 
COPY FPP CONDITION CODES TO CPU CODES. 
BRANCH TO ERROR CALL IF OK. 
BRANCH TO ERROR SETUP ROUTINE. 
PUT A T IN 'AC CHANGED' LOCATION. 
MOVE RETURN TO $TMP5. 
SEE IF AC1 WAS CHANGED. 
COPY FPP CONDITION CODES TO CPU CODES. 
BRANCH TO NEXT TEST IF OK. 
STORE ACTUAL AC1 FOR ERROR PRINTING. 
MOVE ADDRESS OF EXPECTED ACl TO RO. 
RESTORE ACl. 

SEE IF IT WAS RESTORED PROPERLY. 

COPY FPP CONDITION CODES TO CPU CODES. 

BRANCH TO ERROR CALL IF OK. 

BRANCH TO ERROR SETUP ROUTINE. 

PUT A '2' IN 'AC CHANGED* LOCATION. 

MOVE RETURN TO $TMP5. 

SEE IF AC2 WAS CHANGED. 

COPY FPP CONDITION CODES TO CPU CODES. 

BRANCH TO NEXT TEST IF OK. 

STORE ACTUAL AC2 <0R ERROR PRINTING. 

MOVE ADDRESS OF EXPECTED AC2 TO RO. 

RESTORE AC2. 

SEE IF IT WAS RESTORED PROPERLY. 

COPY FPP CONDITION CODES TO CPU CODES. 

BRANCH TO ERROR CALL IF OK. 

BRANCH TO ERROR SETUP ROUTINE. 

PUT A '3' IN 'AC CHANGED' LOCATION. 

MOVE RETURN TO $TMP5. 

SEE IF AC3 VMS CHANGED. 

COPY FPP CONDITION CODES TO CPU CODES. 

BRANCH TO NEXT TEST IF OK. 

STORE ACTUAL AC3 FOR ERROR PRINTING. 

MOVE ADDRESS OF EXPECTED AC3 TO RO. 

RESTORE AC3. 

SEE IF IT WAS RESTORED PROPERLY. 

COPY FPP CONDITION CODES TO CPU CODES. 

BRANCH TO ERROR CALL IF OK. 

MOVE 370 FOR AC LOAD FAILURE, t SET BIT 8 OF ERROR POINTER. 
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8581 044630 


000464 








BR 


8382 044632 


005037 


001236 




4 AAA 

100$: 


CLR 


8383 044636 


112737 


000367 


A A 4 ^ 

001272 




MOVB 


838<« 044644 


012737 


044700 


001244 




nov 


8385 044652 


023700 


Ay F 

045272 






CNP 


8386 044656 


001410 








BEO 


8387 044660 


010037 


001246 






MOV 


8388 044664 


013737 


045272 


001240 




MOV 


8389 044672 


A 4 T ^ A A 

013700 


Ay C ^ 

045272 






MOV 


8390 044676 


000441 








BR 


8391 04h700 


012737 


A A A A A ^ 

000002 


001236 


120$: 


MOV 


8392 044706 


0^?737 


A y y ^ y 

044742 


AA4 O y y 

00^244 




MOV 


8393 044714 


023702 


Ay P o y 

045274 






CMP 


8394 044720 


00l410 








BEQ 


8395 044722 


A 4 A^ 7 ^ 

010237 


A A 4 o y ^ 

001246 






MOV 


8396 044726 


A 4 T -» 

013737 


Ay P O Y/ 

045274 


A A 4 ^ y A 

001240 




MOV 


8397 044734 


A4 T7An 

013702 


A/ 

045274 






MOV 


8398 044740 


AAA/ OA 

000420 








BR 


8399 044742 


A4 0'9T^ 

012737 


A AA A A9 

000003 


AA 4 1^ A 

001260 


4 TA* 

1 30$ : 


MOV 


ay AA Ay / ^ca 

8400 044750 


A4 

012737 


Ay P 4 z z 

045166 


A ^4 1 / y 

001244 




MOV 


ay A4 A/ / £ 

8401 044756 


A O 7 ^A 7 

023703 


A/ P O 

045276 






/■MA 

CMP 


ayA^ Ayy^y^ 

8402 044762 


001501 








BEO 


o y A 7 A y / y 

8403 044764 


A4 A 

010337 


AA4 Oy ^ 

001246 






MOV 


oy Ay Ay y ^^A 

8404 044770 


A4 7^T^ 

013737 


A/ P 

045276 


A A 4 1 / A 

001240 




MOV 


oy rtc A/ y ^^z^ 

8405 044776 


A4 T 7AT 

013703 


A/ P 

045276 






MAI i 

MOV 


oy A^ Ay CAA^ 

8406 045002 


4 4 ^ P 

1 16537 
1227j7 


1 77777 


A/ C T7/ 

045374 


7C 

7$: 


MAI iB 

MOVB 


oy A^ AyCA4A 

8407 045010 


AAA Y7A 

000370 


AAI ^^"^ 

001272 




CMP8 


oy AO Ay PA4 ^ 

8408 045016 


AA4 y A< 

00140<» 








np A 

BEQ 


oy AA Ay PA^A 

8409 045020 


122737 


AAAT^ z 

000366 


AA4 171 

001272 




Lnro 


oy 4 A Ay PA^^ 

8410 045026 


AA4 A ^ Z 

001026 








BNE 


ay 4 4 Ay PA9A 

8411 045030 


A4 OA9Y 

012037 


AA4 Oy A 

001240 




7i . 

71$: 


MOV 


ay 4 ^ Ay PAY/ 

8412 045034 


A4 '^A77 

01 2037 


AA4 t/ '> 

001242 






MOV 


ay 4 9 A/ PA/ A 

8413 045040 


012037 


AA4 O/ ^ 

001 246 






MOV 


o/ 4 y A/ PA/ y 

8414 045044 


A^ '5AT7 

012037 


AA1 ')CA 

001230 






MAI f 

MOV 


O/ 4 C A/ PACA 

8415 045050 


A1 T 7AA 

013700 


A/ C7 1 A 

0A5310 






MOV 


oy4^ A/PAPy 

8416 045054 


A4 

013737 


A/ C7AA 

043300 


AAI 

001252 




MOV 


oy 4 7 A/ PA^^ 

8417 045062 


A^ T^T^ 

013737 


A/ CTA1 

045302 


A A i 1 C / 

001254 




MOV 


oy 4 a A/ PA7A 

8418 045070 


A4 T7T^ 

013737 


A/ CTA/ 

045304 


AAI ^CZ. 

001256 




MOV 


oy 4A Ay PAY^ 

8419 045076 


013737 


A/ C 7AZ. 

045306 


AAi 17/ 

001274 




MAI i 

MOV 


O/ ')A A/ CIA/ 

8420 045104 


1Z 

01263r 


AA^ ^^Z. 

001266 




nULTcR: 


MOV 


Oy^4 A/P44A 

8421 045110 


012637 


AA4 17A 

001270 






MOV 


O/ 1^ A/ i / 

842^ 045114 


142737 


AAAT77 

000377 


A/ C i TA 

045130 




A r ^A 

BIC6 


8423 045122 


153737 


AAi 171 

001272 


A/ C i 7A 

045130 




A t ^A 

BIS8 


oy ^/ 

8424 










. Tl I ff ^ 

;THiS 


O/ IP A/ PI 7A 

8425 045130 


4 Ay AAA 

104000 






74$: 


PA AAA 

ERROR 


8426 045132 


013746 


AAi 

001270 






MAI J 

MOV 


O/ ^7 A/ CI TZ^ 

oA27 045136 


013746 


AAi 

001266 






MAkJ 

MOV 


o/ no A/ c 1 / n 

8428 045142 


022737 


000364 


AAi 171 

001272 




CMP 


O/ '^n A/ C1CA 


AA1 / i 

OOIh 1 / 








BC A 


O / TA A/ C 1 C 1 

8430 OA5152 




AAA7Z.C 

000365 


AAI 

0012^2 




/*MB 

CMP 


O/ T1 A/C1^A 

8431 045160 


AA1 / i 7 

001A13 








AP A 

BEO 


O/ 7') A/ C 1 ^ 1 

8432 045162 


AAA4 ^7 

000177 


13<«056 

Uu'JU Js 






■ MA 

JMP 




Mccf fO 


nnnnnn 


DC Tl IDkl • 
NC 1 UNN : 


mo 


8434 045174 


001403 








BEQ 


8435 045176 


062716 


000002 






ADD 


8436 045202 


000771 








BR 


8437 045204 


062716 


000002 




9$: 


ADD 



11:15 
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SEQUENCE 203 



7$ 

$TMP2 

#367.$TMP20 
#120$.$TMP5 

ST0RE*40,R0 
120$ 

R0,$TMP6 
STORE +40. $TMP3 
ST0RE*40,R0 
7$ 

#2.$TMP2 
#130$.$TMP5 
ST0RE+42.R2 
130$ 

R2,$TMP6 
STORE +42. $TMP3 
ST0RE^42,R2 
7$ 

#3,$TMP13 

#RETURN,$TMP5 

ST0RE*44,R3 

RETURN 

R3.$TMP6 

ST0RE*44,$TMP3 

ST0RE*44,R3 

-1(R5),EXPCTD 

*370,$TMP20 

71$ 

#366,$TMP20 
MULTER 
(R0)*,$TMP3 
(R0)*.$TMP4 
(R0)^,$TMP6 
(R0)*,$TMP7 
ST0RE*56.R0 
STORE*46.$TMP10 
ST0RE*50,$TMP11 
STORE*52.$TMP12 
STORE +54, $TMP21 
(SP)*,$TMP16 
(SP)*-$TMP17 
#377.^4$ 
$T«P20,74$ 



$T«P17.-(SP) 
$TnP16.-(SP) 
#364,$TMP20 

RTI 

#365,$TMP20 

RTI 

a$TMP5 

#4,aO(SP) 

9$ 

#2,(SP) 

RETURN 

#2,(SP) 



.-BRANCH TO ERROR CALL. 
CLEAR 'REGISTER CHANGED* LOCATION. 

.MOVE 367. GENERAL REGISTER CHANGED ERROR. TO POINTER. 
;MOVE RETURN TO $TMP5, 
;SEE IF RO WAS CHANGED. 
;BRANCH TO NEX^ TEST IF OK. 

;MOVE ACTUAL RO TO LOCATION FOR ERROR PRINTING. 
iMOVE EXPECTED TO LOCATION FOR ERROR PRINTING. 
.RESTORE RO. 
.BRANCH TO ERROR CALL. 

;PUT A '2' IN 'REGISTER CHANGED' LOCATION. 
;MOVE RETURN TO $TMP5. 
;SEE IF R2 WAS CHANGED. 
.•BRANCH TO NEXT TEST IF OK. 

.-MOVE ACTUAL R2 TO LOCATION FOR ERROR PRINTING. 
;MOVE EXPECTED TO LOCATION FOR ERROR PRINTING. 
; RES TORE R2. 
;BRANCH TO ERROR CALL. 

;PUT A '3' IN 'REGISTER CHANGED' LOCATION. 
;MOVE RETURN TO $TMP5. 
;SEE IF R3 WAS CHANGED. 
;8RANCH TO RETURN IF OK. 

.-MOVE ACTUAL R3 TO LOCATION FOR ERROR PRINTING. 
;MOVE EXPECTED TO LOCATION FOR ERROR PRINTING. 
; RESTORE R3. 

.-MOVE DATA FROM TABLE FOR POSSIBLE USE ;DPM001 
TEST TO SEE IF AC INFO NEEDS TO BE STORED. 
.•BRANCH TO INFO STORE ROUTINE IF SO. 
iTEST TO SEE IF AC INFO NEEDS TO BE STORED. 
ISKIP AC INFO ROUTINE IF NOT. 
;MOVE 1ST UORD OF ACTUAL AC DATA TO $TMP3. 
.-MOVE 2ND UORD OF ACTUAL AC DATA TO $TMP4. 
.-MOVE 3RD UORD OF ACTUAL AC DATA TO $TMP6. 
;MOVE 4TH UORD OF ACTUAL AC DATA TO $TMP7. 
;RESTORE RO TO UHAT IT HAD AT BEGINNING OF TRAP. 
.-MOVE 1ST UORD OF EXPECTED AC DATA TO $TMP10. 
.MOVE 2ND UORD OF EXPECTED AC DATA TO $TMP11. 
.-MOVE 3RD UORD OF EXPECTED AC DATA TO $TMP12. 
;MOVE 4TH UORD OF EXPECTED AC DATA TO $TMP21 . 
:SAVE 1ST CONTENTS OF STACK AND POP IT ONCE. 
iSAVE 2ND CONTENTS OF STACK AND POP IT AGAIN. 
; CLEAR OUT LAST ERROR OFFSET FROM ERROR INSTRUCTION. 
jPUT ERROR NUMBER TO BE ACCOMPLISHED IN ERROR INSTRUCTION. 
ERROR IS DEFINED BY THE CONTENTS OF THE LOUER BYTE OF LOCATION C12723 
♦0 

;PUSH 2ND CONTENTS BACK ON THE STACK. 
;PUSH 1ST CONTENTS BACK ON THE STACK. 
;SEE IF RETURN ROUTINE IS TO BE SKIPPED. 
;8RANCH TO RTI IF SO. 

;SEE IF RETURN ROUTINE IS TO BE SKIPPED. 
;BRANCH TO RTI IF SO. 
;JUMP TO CONTINUE CHECKING. 
;SEE IF INSTRUCTION IS THE lOT. 
; BRANCH IF THE lOT HAS BEEN FOUND. 
CORRECT PC RETURN. 
;BRANCH BACK FOR ANOTHER TRY. 
; CORRECT PC RETURN TO POINT AFTER lOT FOUND. 
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8458 


045210 


8A39 


045214 


8440 




8441 


045216 


8442 




8443 




8444 




8445 




8446 




8447 




8448 




8449 




8450 




8451 




8452 




8453 




8454 




8455 




8456 




8457 




8458 


045232 


8459 




8460 




8461 




8462 


045312 


8463 


045342 


8464 


045374 


8465 


045376 


8466 


045402 


8467 


045410 


8468 


045416 




045416 



8469 

8470 045420 

8471 

8472 



005237 
000002 



177572 



H1113 
TEST. 

RTl 



000 
341 
000000 
005037 
013737 
013737 

104412 



000 
000 

177572 
001262 
042426 



000 
361 



000250 
000020 



30-OCT-81 
MODE 7 

INC 
RTI 



11:15 PAGE 



MMRO 



J 16 
99-3 



SEQUENCE 204 



.'TURN ON MEMORr «/.NA6EttENT, AND 
.-RETURN FROM INTERRUPT. 



NODAT: .8LKy 6 .LOCATION IN NON-RES. D-SPACE USED TO FORCE A TRAP. 

THE 'STORE' LOCATION BELOW IS PARTITIONED TO RESERVE •4* WORDS FOR EACH FP 
ACCIJMUUTOR, EVEN THOUGH ONLY 2 ARE REQUIRED FOR STORING A FLOATING NUMBER. 
THIS IS BECAUSE *IF* THE FPS IS CHANGED BY A PROBLEM IN THE FPP, SO THAT A 
•DOUBLE* IS STORED. *4* WORDS RESERVED WILL GUARANTEE THAT THE NEXT DATA BLOCIC 
WILL NOT BE DISTURBED. PARTITIONING IS AS FOLLOWS: 
WORD(S) USE 



STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 



ACO 

AC1 

AC2 

AC3 

RO 

R2 

R3 

ACTUAL 
ACTUAL 



1 - 4 
5 -10 
11-14 
15-20 
21 
22 

23 

24-27 STORE ACTUAL AC 

30 STORE ACTUAL RO SO RO CAN BE USED IN AC ERROR CALLS 

STORE: .8LKW 30 ; STORAGE LOCATIONS FOR THE FLOATING ACCUMULATORS t DATA. 

THE FOLLOWING BYTE TABLE WILL BE USED TO CHECK THE VALUES OF SRI AND THE CALCULATED 
VALUES. SRI HAY TRACK THE ACTIVE REGISTER PROPERLY, BUT IF THE •VALUE* OF THE 
INCREMENT/DECREMENT IS WRONG, AN ERROR STILL EXISTS. 
BYTABL: .BYTE 0.0.0.0.0.0,41 ,21 .41 ,41 .0.0.0,27.0.27.0.27 0 27.0,341 ,361 .341 
341.0,361,361,361,361.0.0.0.0.0,0,0,0.0,0.0,0,0,0.0.0,0.0,0.0 



EXPCTD: 
ENDTES: 



DIDONE; 



.BYTE 
.WORD 
CLR 

nov 
nov 

RSETUP 



0 

NNRO 

$TMP14,HHVECT 
SAVI0T,I0TRAP 



LOCATION TO HOLD DATA FROM BYTE TABLE ;DPn001 
TURN OFF MEMORY MANAGEMENT. 
RESTORE HMVECT CONTENTS. 
RESTORE lOTRAP CONTENTS. 

;G0 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



TST115: 



CKFPCDO FP11F FLTG PNT PRT 
END OF PASS ROUTINE 

8A7A 



MACRO mi 13 30-OCT-81 11:15 



K 16 
100 



SEQUENCE 205 



0A5420 
0A5420 
0A5422 
045426 
045432 
045436 
045440 
045444 
045450 
045452 
045454 
045456 
045462 
045464 
045466 
045470 
045474 
045476 
045502 
045504 
045512 
045514 
045514 
045520 

045540 
045540 
045544 
045546 

045552 
045554 
045555 
045556 
045562 
045564 
045570 

045600 
045600 
045602 
045610 
045616 
045620 
045624 

045630 
045630 
045634 



000004 
005037 
005037 
005237 
100004 
005037 
005237 
005327 
000001 
003402 
000137 
012737 
000001 
045452 
005737 
001007 
005737 
001120 
032737 
001114 

104401 
000407 



005737 
001440 
013746 

104403 
006 
000 
005737 
001007 
104401 
000403 



000426 
012737 
033737 
001013 
104401 
000401 



006237 
006237 



001102 
001302 
001324 

001324 
046166 



046114 

001112 
046164 
000777 

045522 

046166 
046166 

001324 
045572 



070000 
001244 

045626 



001244 
001244 



001324 



001244 
001324 



.S8TTL END OF PASS ROUTINE 

******************************************************** 

•INCREMENT THE PASS NUMBER ($PASS) 



<«*•*** 



♦INDICATE END-OF -PROGRAM AFTER 
*IF SW12=1 INHIBIT TRACE TRAP 
THERE S A MONITOR GO TO IT 
THERE ISN'T JUMP TO LOOP 



*IF 
•IF 
SEOP 



1000$: 
SEOPCT: 



999$: 
$ENDCT: 



5000$: 



;;65$: 
64$: 



;;67$: 
66$: 

3000$: 
4000$: 



;:69$: 
66$: 



SCOPE 

CLR 

CLR 

INC 

BPL 

CLR 

INC 

DEC 

.UORD 

BLE 

JMP 

MOV 

.UORD 

$EOPCT 

TST 

BNE 

TST 

BNE 

BIT 

BNE 

TYPE 
BR 

•ASCIZ 

TST 
BEQ 
MOV 

TYPOS 

.BYTE 

.BYTE 

TST 

BNE 

TYPE 

BR 

.ASCIZ 

BR 

MOV 

BIT 

BNE 

TYPE 

BR 

.ASCIZ 

ASR 
ASR 



$TSTNM 

$TIMES 

$PASS 

1000$ 

$PASS 

$PASS2 

(PC)* 

1 

999$ 
$D0AGN 
(PC)*.a(PC)* 
1 

$ERTTL 

5000$ 

EPENDS 

$GET42 

#777. $PASS 

$6ET42 



1 PASSES THRU THE PROGRAM 



::ZERO THE TEST NlWER 

::ZERO THE NUMBER OF ITERATIONS 

;; INCREMENT THE PASS NUMBER 

.•BRANCH IF STILL PLUS 

.•CLEAR THE PASS COUNTER 

.•INCREMENT OVERFLOW PASS COUNTER 

;;LOOP? 

;N0 
* * YES 

••RESTORE COUNTER 



SEE IF ANY ERRORS THIS PASS 
BRANCH IF SO TO PRINT THE EOP 
SEE IF EOP MSGS ARE DISABLED 
BRANCH IF SO 

PRINT EOP EVERY 1000TH PASS 
BRANCH IF NOT MULTIPLE OF 1000 



,65$ 
64$ 

<12><15>/END PASS 



.TYPE ASCIZ STRING 
:6ET OVER THE ASCIZ 
# / 



$PASS2 
4900$ 

$PASS2,-(SP) 



6 
0 

$PASS 
3000$ 
,67$ 
66$ 

100000 1 
4910$ 

#70000, $TMP5 

$TMP5.$PASS 

4900$ 

,69$ 

68$ 

:o: 

$TMP5 
$TMP5 



;SEE IF OVERFLOW HAS NON-ZERO VALUE 

.•BRANCH IF ZERO 

;;SAVE $PASS2 FOR TYPEOUT 

;;TYPE OVERFLOW PASS NUMBER IN OCTAL 

;;G0 TYPE—OCTAL ASCII 

;;TYPE 6 DIGITS 

:: SUPPRESS LEADING ZEROS 

;SEE IF PASS COUNT IS ZERO 

; BRANCH IF NOT 

;;TYPE ASCIZ STRING 

;;GET OVER THE ASCIZ 



;G0 TEST $ERTTL 
; CHECK 5TH OCTAL DIGIT 
;CHECK TO SEE IF OCTAL 
.•BRANCH OUT IF ZERO 
;;1YPE ASCIZ STRING 
::GET OVER THE ASCIZ 



FIRST 
DIGIT 



IS ZERO 



.-SHIFT THE THREE BITS RIGHT 3 PLACES 



0PM002 
DPM002 
DPM002 



;DPM002 



DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 



;DPM002 
;0PM002 



;0PM002 
:DPM002 



DPM002 
DPM002 
DPM002 
DPM002 



;DPM002 
;DPM002 



CKfPCDO FP11F FLTG PNT PRT C 
END OF PASS I^OUTINE 



HACRO mi 13 30-OCT-81 



OA 5640 


006237 


001244 




0456A4 


000761 






045646 




001324 




045646 


013746 




045652 


104403 






045654 


006 










001112 




0456S6 


005737 




045662 


001426 








in/ / m 






045670 


000415 






045724 








045724 


013746 


001112 




045730 


104403 






045732 


006 






045733 


000 






045734 


005037 


001112 




045740 


104401 


001313 




045744 


105777 


133174 




045750 


100042 






045752 


013737 


001146 


001244 




nnc7X7 


U*»0 1 OH 




045764 


001017 






045766 


005237 


046164 




045772 


104401 


046000 




045776 


000411 














046022 


000415 






046024 


005037 


046164 




n/6C30 


104401 


046036 




046034 


000410 






046056 












nnoo47 




046062 


001414 






046064 


005046 






046066 


012746 


046074 




046072 


000426 






046074 








046074 


013700 


000042 




046100 


001405 






046102 


000005 






046104 


004710 






046106 


000240 






046110 


000240 






046112 


000240 






046114 








046114 


104400 






046116 


042716 


000020 


133010 


046122 


032777 


010000 


04613? 


001005 






046132 


005137 


046156 





4900$: 



4910$: 



5001$: 
$GET42: 



;;65$: 
64$: 

$DISA8: 



;;65$: 

64$: 

$GT42C; 



SCLR.T: 



$£NDAD: 



$D0AGN: 



ASR 
BR 

nov 

TYPOS 

.evTE 

TST 
BEQ 
TYPE 
BR 

.ASCZ 

nov 

1YP0S 

.BYTE 

.BYTE 

CLR 

TYPE 

TST8 

8PL 

MOV 

TST 

BNE 

INC 

TYPE 

BR 

.ASCIZ 

BR 
CLR 
TYPE 
BR 

.ASCIZ 

nov 

BEO 

CLR 

nov 

BR 



nov 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

TRAP 
BIC 
BIT 
BNE 

con 



L 16 

11:15 PAGE 100-1 



SEQUENCE 206 



$TMP5 
4000$ 

$PASS.-(S.'>) 



.-BRANCH BACK TO CHECK $PASS 



;DPnO02 
;DPn002 



;;SAVE $PASS FOR fYPEOUT 
;;TYPE PASS NUnBER IN OCTAL 
;;G0 TYPE—OCTAL ASCII 
6 ;;TYPE 6 DIGITS 

0 ;; SUPPRESS LEADING ZEROS 

$ERTTL ;SEE IF ANY ERRORS THIS PASS 

5001$ .-BRANCH AROUND REPORT IF NONE 

.71$ .-.TYPE ASCIZ STRING 

70$ ;;GET OVER THE ASCIZ 

/ TOTAL ERRORS THIS PASS / 



$ERTTL.-(SP) 



6 
0 

$ERTTL 

.$CRLF 

a$TKS 

$GT42C 

$TK6.$TnP5 

EPENDS 

$DISAB 

EPENDS 

,65$ 

64$ 

<CRLF>!EOP'S 



;;SAVE $ERTTL FOR TYPEOUT 

;; TOTAL NUnBER Of ERRORS IN OCTAL 

;;G0 TYPE —OCTAL ASCII 

;;TYPE 6 DIGITS 

; .-SUPPRESS LEADING ZEROS 

.-.-CLEAR ERROR TOTAL 

.-.-TYPE CARRIAGE RETURN. LINE FEED 

.-IS A CHARACTER WAITING? 

'BRANCH IF NOT 

■WASTE THE CHARACTER, CLEARING READY 
.-SEE WHICH STATE ENABLE /DISABLE IS IN 
.-BRANCH IF EOP'S DISABLED 
.-SET FLAG DISABLING PRINTOUTS 
;;TYPE ASCIZ STRING 
:;6ET OVER THE ASCIZ 
DISABLED !<CRLF> 



$GT42C .-BRANCH OVER ENABLE ROUTINE 

EPENDS .-CLEAR FLAG ENABLING PRINTOUTS 

.65$ ;;TYPE ASCIZ STRING 

64$ ;:GET OVER THE ASCIZ 

<CRLF>!EOP'S ENABLED !<CRLF> 



»ir42.R0 
$DOAGN 

-(SP) 

#$CLR.T. -(SP) 
$RTRN 



a#42.R0 
$D0AGN 



PC.<R0) 



#20. (SP) 

/rBIT12.aSWR 

1$ 

$T£jiT 



.-.-GET nOWITOR ADDRESS 

; .-BRANCH IF NO HONITOR 

.-.-INSURE THE 'T' BIT IS CLEAR 

; .-SETUP FOR AN RTI OR RTT 

::G0 DO AN RTI OR RTT TO LOAD THE 

;;WITH A CLEARED 'T* BIT 

;; INSURE RO CONTAINS THE nONITORS 

.-.-RETURN ADDRESS 

;; CLEAR THE WORLD 

;;G0 TO nONITOR 

;:SAVE ROOM 

;;FOR_ 

;;ACT11 

.-.-PUSH OLD PSW AND PC ON STACK 
.-.-CLEAR THE "T" BIT 
;;RUN WITH TRACE TRAP? 
;;BR IF NO 

;;IS IT TinE FOR TRACE TRAP 



;DP«002 
.-DPn002 



;DPn002 
;DP«002 
:DPn002 
;DPn0f2 
;DPn0u2 
;DPn002 



;DPn002 
;DPn002 



PSW 



CKFPCDO FP11F FLTG PNT 
END OF PASS ROUTINE 
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046136 
046U0 
046UA 
046150 



046152 
OA6152 
046154 
046156 
046 '60 

046164 
046166 



n 16 

100-2 



SEQUFNCE 207 



ICC 

052716 
012746 
000002 



000137 
006764 
000000 
377 

000000 
000000 



m 

000020 BIS 
046152 IS: HOV 

SRTRN: RTI 



SLOOP: 

JMP 

$RTNAD: .WORD 
STBIT: .WORD 
377 000 SENULL: .BYTE 

.EVEN 
EPENDS: .WORD 
SPASS2: .WORD 



IS 

#20. (SP) 

moop.-(sp) 



a(PC)* 

LOOP 
0 

-1,-1.0 



0 
0 



;BR IF NO 

;SET TRACE TRAP 

;JUMP TO START OF TEST 

.•RETURN— THIS IS CHANGED TO 

;AN 'TRTT" If "RTT" IS A LEGAL 

.INSTRUCTION 

.•RETURN 

;"T" BIT STATE INDICATOR 
.-NULL CHARACTER STRING 

LOCATION FOR EOP PRINT FLAG 
LOCATION FOR PASS COUNT OVERFLOW 



;0P«002 
;DPH002 



CKFPCDO FPllF FLTG PNT PRT C 
SCOPE HANDLER ROUTINE 

8476 
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N 16 
PAGE 101 



SEQUENCE 



0461 70 
046170 
046172 
046200 



046204 
046210 
046216 
046222 
046226 
046230 
046232 
046236 
046240 
046240 
046246 
046250 
046256 
046260 
046266 
046274 
046276 
046304 
046312 
046314 
046320 
046324 
046326 
046334 
046336 
046344 
046346 
046354 
046356 
046362 
046366 
046370 
046376 
046400 
046404 
046406 



104406 
032777 
001134 



046202 000416 



013746 
012737 
005737 
012637 
000503 
022626 
012637 
000443 

032777 
001404 
127737 
001505 
013737 
032737 
001411 
042737 
012737 
104177 
105037 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 



000004 
046230 
177060 
000004 



000004 

000400 

132664 

177766 
000001 

000001 

001103 
001103 

001115 

001000 

001110 

001103 
001302 

004000 

001324 

001104 



.S8TTL SCOPE HANDLER ROUTINE 



iTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPlAV<7:0» 

♦AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLA>'<15:08> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW14=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09=1 LOOP ON ERROR 

•SW08=1 LOOP ON TEST IN SWR<7:0> 

•CALL 

• SCOPE ;;SCOPE=IOT 



040000 132740 1$: 



$SC0PE: 

CKSWR 
BIT 
BNE 

■./t0000SlART OF 
SXTSTR: BR 



#BIT14.aSWR 
$OVER 
CODE hOR THE 
6S 



nov 

000004 nov 

TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6S::Xr#mEND OF 

132672 BIT 
BEQ 

001102 CMPB 
BEQ 

046506 2S: MOV 
046506 BIT 
BEQ 

177766 BIG 
001320 NOV 

ERROR 
CLRB 

2000S: TST8 



001103 
132574 
001106 



7$: 
4$: 



132542 3$: 



BEQ 

CMPB 

BHI 

BIT 

BEQ 

MOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEQ 

INC 



ERRVEC,-(SP) 
*5$-ERRVEC 
177060 ;;TIME 
(SP)+,ERRVEC 
SSVLAD 
(SP)*,(SP)+ 
(SP)*,ERRVEC 
7$ 

CODE FOR THE 

raiT08,aswR 

2S 

aSWR.STSTNM 
SOVER 

1 77766, CPSAVE 
*8IT00,CPSAVE 
2000$ 

*8I TOO, 177766 
*-U$FATAL 
♦ 17^ 
SERFLG 
SERFLG 
3S 

SERMAX, SERFLG 
3S 

«SIT09,aSWR 
4S 

SLPERR,SLPADR 
SOVER 
SERFLG 
STIMES 
IS 

«8IT11,aSWR 
1$ 

SPASS 
IS 

SICNT 



;;TEST FOR CHANGE I^ SOFT-SWR 
;;LOOP ON PRESENT TcST? 
;;rES IF SW14=1 
XOR TESTER#m# 

;;IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A "HOP" (NOP=240) 
.-.SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
OUT ON XOR? 
; .-RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
.-.RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 
XOR TESTER###/r# 

;;LOOP ON SPEC. TEST? 
- *8R IF NO 

;;0N THE RIGHT TEST? SWR<7:0> 
' *8R IF YES 

•MOVE CPU ERR REG VALUE TO LOC FOR TST ; 
.-SEE IF THE POWER MONITOR BIT IS ON 
.•BRANCH TO CONTINUE ROUTINE IF CLEAR ; 
.•CLEAR THE BIT FOUND TO BE SET ; 
.-MOVE -1 TO SFATAL INDICATING PWR MON ER; 
.-CALL SPECIAL POWER FAIL BIT ERROR CALL ; 
: CLEAR ERROR FLAG FOR CHECK BELOW 
;:HAS AN ERROR OCCURRED? 
;;aR IF NO 

;:MAX. ERRORS FOR THIS TEST OCCURRED? 
::BR IF NO 
;;LOOP ON ERROR? 
.-;8R IF NO 

.-.-SET LOOP ADDRESS TO LAST SCOPE 



DPM001 
DPM001 
DPM001 
DPFiuOl 
DPM001 
DPM001 
DPMOOl 



;;ZERO THE ERROR FLAG 

;; CLEAR THE NUMBER OF ITERATIONS TO MAKE 

;; ESCAPE TO THE NEXT TEST 

;; INHIBIT ITERATIONS? 
. .gp If y^3 

;;IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
.•.•INCREMENT ITERATION COUNT 



CKFPCDO FPIIF FLTG PNT PRT C 
SCOPE HANDLER ROUTINE 
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SEQUENCE 209 



046412 
046420 
046422 
046430 
046436 
046442 
046450 
046454 
046460 
046464 
046472 
046500 
046504 
046506 
046510 



023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000000 
000001 



001302 001104 



000001 
046510 
001102 
001102 
001106 
001110 
001304 
000001 
001102 
001106 



001104 
001302 

001322 



001115 
132442 



CMP 

BGE 

IS: nov 

MOV 

SSVLAD: INCB 
MCVB 
MOV 
MOV 
CLR 
MOVB 

$OVER: MOV 
MOV 
RTI 

CPSaVE: .WORD 
SMXCNT: 1 



$TIMES,$ICNT 
SOVER 

»^.%1CH^ 

SMXCNT, $T I ME S 
STSTNM 

STSTNM,STESTN 

(SP).SLP«0R 

(SP).SLPERR 

SE SCAPE 

#1,SERMAX 

STSTNM, iDISPLAY 

SLPADR,(SP) 



CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUHBCR IN APT MAILBOX 
SAVE SCOPE LOUP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW 0\'E(1) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
.FIXES PS 

LOCATION TO SAVE CPU ERR REG CONTENTS 
MAX. NUMBER OF ITERATIONS 



.DPMOOl 



CKFPCOO FP11F FLTG PNT PRT C 
ERROR HANDLER ROUTINE 

8478 
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SEQUENCE 210 



.SBTTL ERROR HANDLER ROUTINE 

• t*** ************************************************* ********** 
iTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND 60 TO ERTYPE ON ERROR 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE-' 



•SW15=1 
*SW13=1 
*SW10=1 
*SW09=1 
*CALL 



046512 


000000 






IBSAVE : 


.WORD 


046514 








$ERROR: 


CKSWR 


046514 


104406 






7$: 


046516 


105237 


001103 




INCe 


046522 


001775 








BEQ 


046524 


013777 


001102 


132410 




MOV 


046532 


032777 


002000 


132400 




BIT 


046540 


001402 








BEQ 


046542 


104401 


001306 




1$: 


TYPE 


046546 


005237 


001112 




INC 


046552 


011637 


001116 






MOV 


046556 


162737 


000002 


001116 




SUB 


046564 


117737 


132326 


001114 




M0V8 


046572 


1 52737 


000177 


001114 




CMP8 


046600 


001421 








BEQ 


046602 


013737 


177766 


046506 




MOV 


046610 


032737 


000001 


046506 




BIT 


046616 


001412 




177766 




BEQ 


046620 


042737 


000001 




BIC 


046626 


013737 


001116 


046512 




MOV 


046634 


104177 








ERROR 


046636 


013737 


046512 


001116 


1000S: 


MOV 


046644 










046644 


032777 


A A AAA 

020000 


132266 




BIT 


046652 


001004 








8NE 


046654 


004737 


051152 






JSR 


046660 


104401 


001313 




20$; 


TYPE 


046664 










046664 


122737 


000001 


001336 




CMP8 


046672 


001023 








BNE 


046674 


005037 


046736 






CLR 


046700 


113737 


001114 


046736 




MOVB 


046706 


122737 


000377 


001114 




CMPB 


046714 


001006 








BNE 


046716 


012737 


000400 


046736 




MOV 


046724 


067737 


132166 


046736 




ADD 


046732 


004737 


050006 




900$: 


JSR 


046736 


000 






21$: 


.BYTE 


046737 


000 






22$: 


.BYTE 


04674" 


000777 






BR 


046742 


005737 


046512 




2$: 


TST 


046746 


001005 








BNE 


046750 


005777 


132164 






TST 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 

ERROR N ;;ERROR=EMT AND N- ERROR ITEM NUMBER 

;LOC'N TO HOLD $ERRPC DURING DUAL ERR 



SERFLG 
7S 

$TSTNM,aDISPLAY 

»BIT10,aSWR 

1$ 

,$6ELL 

$ERTTL 

(SP),$ERRPC 

#2,$ERRPC 

a$ERRPC,$ITEHB 

#177,$ITEHB 

1000$ 

1 77766, CPSAVE 
#8IT00,CPSAVE 
1000$ 

#BI TOO, 177766 
$ERRPC, IBSAVE 
+177 

IBSAVE, $ERRPC 

«8IT13.aSWR 
20$ 

PC. ERTYPE 
,$CRLF 

#APTENV,$ENV 

2$ 

21$ 

$ITEM8,21$ 

#377,$ITEM8 

900$ 

#400,21$ 

a$ERRPC,21$ 

PC,$ATY4 

0 
0 

22$ 

IBSAVE 

3r 

aswR 



.-.-TEST FOR CHANGE IN SOFT-SWR 

;;SET THE ERROR FLAG 

; .-DON'T LET THE FLAG GO TO ZERO 

.-.DISPLAY TEST NUMBER AND ERROR FLAG 

.-.-BELL ON ERROR? 

;;N0 - SKIP 

;;RING BELL 

;; COUNT THE NUMBER OF ERRORS 
:;GET ADDRESS OF ERROR INSTRUCTION 

; .-STRIP AND SAVE THE ERROR ITEM CODE 
;SEE IF PWR MON ERROR CALL 
.-BRANCH IF SO TO CALL THE ERROR 
.-MOVE CPU ERR REG TO CPSAVE FOR TEST 
;SEE IF POWER MONITOR BIT IS SET 
; BRANCH IF OK 
.-CLEAR THE BIT FOUND SET 
;SAVE $ERROR 

;CALL POWER MONITOR BIT ERROR 
.-RESTORE $ERROR 

.-.-SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

:;G0 TO USER ERROR ROUTINE 



.-; RUNNING IN APT MODE 

;;NO,SKIP APT ERROR REPORT 

.-CLEAR ANY PREVIOUS NUMBER FROM 21$ 

;;SET ITEM NUMBER AS ERROR NUMBER 

.-SEE IF ITEM # IS OVER 400 

; BRANCH IF NOT 

.-MOVE BASE OF 400 TO 21$ 

;ADD NUMBER OVER 400 TO 21$ 

.-.-REPORT FATAL ERROR TO APT 



;;APT ERROR LOOP 
.-SEE IF POWER FAIL ERROR CALL 
:BRANCH IF NOT - HALT NOT ALLOWED 
.-.HALT ON ERROR 



,-DPMOOI 



DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 
DPM001 



;DPM001 

.-DPM001 
.-DPM001 
.DPMOOI 
;DPM001 



; DPMOOI 
; DPMOOI 



CKFPCDO FPIIF FLT6 PNT PRT C 
ERROR HANDLER ROUTINE 



046754 
046756 
046760 
046762 
046770 

0U7m 
047004 
047010 
047012 
047016 
047020 
047024 
047024 
047032 
047034 
047036 
047036 
047044 
047046 
047052 
047060 
047066 
047070 
047074 



HACRO mi 13 30-0CT-81 



1 Uvvvc 




nnnnnn 

UuvUUv 




1 C\LL(\(% 
1 UhHUO 






001 000 

WW 1 wwU 






00S737 


046512 


001002 




013716 


001110 


005737 


001 XQL 


001 AOS 

WW 1 w J 




005737 


046512 


001002 


001304 


01371 <"> 


WCC ' Jf 


WHO 1 UH 


001001 
wU 1 WW ■ 




onnono 

vwwwww 




0T5777 




001013 




011637 


001162 


062737 


177776 


122777 


000377 


001002 




062716 


000002 


000002 





132150 3$: 



4S: 



000042 



132074 



001162 
132074 



5$: 



6$: 



ERMIO: 



8PL 

HALT 

CKSUR 

BIT 

BEO 

TST 

6NE 

MOV 

TST 

BEO 

TST 

BNE 

nov 

CMP 
BNE 
HALT 

BIT 

BNE 

MOV 

ADD 

CMP8 

BNE 

ADD 

RTl 
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SEQUENCE 



3$ 



«8IT09,aSUR 
4$ 

IBSAVE 
4$ 

$LPERR.(SP) 

SESCAPE 

5$ 

IBSAVE 
5$ 

$ESCAPE.(SP) 

mNDAD,42 
6$ 



«BIT09.8SWR 

ERMIO 

(SP). SREGO 

#-2.$REG0 

«377.aSREG0 

ERMIO 

*2.(SP) 



SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SWR 

LOOP ON ERROR SWITCH SET? 

BR IF NO 

SEE IF ERROR IS PUR MONITOR BIT ERROR 
BRANCH IF SO - DON'T FUDGE RETURN 
;FUD6E RETURN FOR LOOPING 
.•CHECK FOR AN ESCAPE ADDRESS 
:BR IF NONE 

SEE IF ERROR IS PUR MONITOR 61 T ERROR 
BRANCH IF SO - DON'T FUDGE RETURN 
.•FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-11 AUTO-ACCEPT? 
.•BRANCH IF NO 
;yES 



;SEE IF ERROR *377 



.DPMOOI 
.DPMOOI 



; DPMOOI 
.-DPMOOI 
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SEQUENCE IM 



8480 



047076 
047076 
047100 
047102 
047104 
047106 
047110 
047112 
047116 
047122 
047126 
047132 



047134 
047134 
047140 
047144 
047150 
047154 
047156 
047160 
04716? 
047164 
047166 
047170 



010046 
010146 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 



012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



000022 
000022 
000022 
000022 



SBTTL SAVE AND RESTORE R0-R5 ROUTINES 



•SAVE R0-R5 
*CALL: 

* SAVREG 

•UPON RETURN FROM SSAVREG THE 



•TOP ( + 16) 

• +2 (+18) 

• +4 R5 

• +6 R4 

• +8 — R3 

•♦10 R2 

•♦12 R1 

.•♦14 — RO 
SSAVREG: 

MOV 
MOV 
MOV 
NOV 

nov 

MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

.••RESTORE R0-R5 
; •CALL : 

;• RESREG 
SRESREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



STACK WILL LOOK LIKE: 



RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4.-(SP) 
R5.-(SP) 
22(SP),-(SP) 

22(SP), -(SP) 
22(SP), -(SP) 



(SP)+,22(SP) 

(SP)+,22(SP) 

(SP)*.22(SP) 

(SP)*, R5 

(SP) ♦,R4 

(SP)+,R3 

(SP)*.R2 

(SP)+,R1 

(SP)+,RO 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 
SAVE 
SAVE 
SAVE 



RO ON 
Rl ON 
R2 ON 
R3 ON 
R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 



STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

MAIN FLOW 

MAIN FLOW 

CALL 

CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
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047172 
047174 
047200 
047202 
047204 
047206 
047210 
047214 
047222 
047224 
047232 
047234 
047240 
047244 
047246 
047254 
047256 
047260 
047262 
047264 
047270 
047272 
047276 
047300 
047304 
047306 
047312 
047314 
047316 
047320 
047322 
047326 
047330 
047334 
047340 
047342 

047346 
047352 
047354 
047360 



000000 

105737 

100002 

000000 

000432 

010046 

017600 

122737 

001011 

132737 

001405 

010037 

004737 

000000 

132737 

001005 

112046 

001007 

005726 

010037 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

001313 

105037 

000753 

004737 

123726 

001346 

013746 

105366 
002770 
004737 
105337 
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.S8TTL TYPE ROUTINE 

' Ht lit* ******** ****************** ******************************** 
^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 



SEQUENCE 



001157 



000002 
000001 



001336 



000100 001337 

047244 
047776 

000040 001337 



047172 
000002 
000011 
000200 

047530 

047412 
001156 

001154 

000001 

047412 
047530 



*N0TE1 
•N0TE2 
•N0TE3 



♦CALL: 

*1} USING A 

• TYPE 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•OR 



TRAP INSTRUCTION 
,MESADR 



TYPE 
MESADR 



EOASCI : 


.WORD 


0 


$TYPE: 


TSTB 


STPFLG 




BPL 


1$ 




HALT 






BR 


3$ 


1$: 


MOV 


RO,-(SP) 




MOV 


82(SP),R0 




CMPB 


*APTENV,$ENV 




BNE 


62$ 




BITB 


*APTSP00L,$ENVM 




BEO 


62$ 




MOV 


R0,61$ 




JSR 


PC.$ArY3 


61$: 


.WORD 


0 










BNE 


60$ 


2$: 


MOVB 


(RO)*,-(SP) 


BNE 


4$ 




TST 


(SP)* 




MOV 


RO, EOASCI 


60$: 


MOV 


(SP)*,RO 


3$: 


ADD 


ir2.(SP) 




RTI 




4$: 


CMPB 


*HT,(SP) 




BEO 


8$ 




CMPB 


*CRLF,(SP) 




BNE 


5$ 




TST 


(SP)* 




TYPE 






$CRLF 






CLRB 


$CHARCNT 




BR 


2$ 


5$: 


JSR 


PC.$TYPEC 


6$: 


CMPB 


$FILLC.(SP)* 




BNE 


2$ 




MOV 


$NULL.-(SP) 


7$: 


DECB 


KSP) 




BLT 


6$ 




JSR 


PC,$TYPEC 




DECB 


$CHARCNT 



;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;LOC TO HOLD ADRS OF TERMINATOR BYTE ;DPM001 
;;IS THERE A TERMINAL? 
* *BR IF YES 

••HALT HERE IF NO TERMINAL 
; .-LEAVE 
• *SAVE RO 

::6ET ADDRESS OF ASCIZ STRING 
::RUNNING IN APT MODE 
;;NO,GO CHECK FOR APT CONSOLE 
;; SPOOL MESSAGE TO APT 
;;NO,G0 CHECK FOR CONSOLE 
;;SETUP MESSAGE ADDRESS FOR APT 
;; SPOOL MESSAGE TO APT 
.'.-MESSAGE ADDRESS 
;;APT CONSOLE SUPPRESSED 
;; YES, SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 

;;BR IF IT ISN'T THE TERMINATOR 

;:IF TERMINATOR POP IT OFF THE STACK 

.-SAVE ADRS OF TERMINATOR - POSSIBLY USED.DPMOOl 

; .-RESTORE RO 

.-.■ADJUST RETURN PC 

.-.•RETURN 

;. •BRANCH IF <HT> 

;. •BRANCH IF NOT <CRLF> 

.-.-POP <CR><LF> EOUIV 
.-.•TYPE A CR AND LF 

.-.•CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

;;G0 TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

::IF NO GO GET NEXT CHAR. 

;;6ET » OF FILLER CHARS. NEEDED 

;;AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 

;;BR IF NO— 60 POP THE NULL OFF OF STACK 

.•.•GO TYPE A NULL 

;:D0 NOT COUNT AS A COUNT 
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047366 
047372 
047376 
047404 
047406 
047410 
047412 
047412 
047416 
047420 
047424 
047430 
047434 
047436 
047436 
047442 
047444 
047450 
047454 
047460 
047462 
047462 
047464 
047464 
047470 
047472 
047500 
047506 
047510 
047514 
047516 
047524 
047526 
047530 
047532 



112716 
004737 
132737 
001372 
005726 
000722 

105777 
100022 
01 7746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



000040 
047412 
000007 



131526 

131522 
177600 
000023 



131502 

131476 
177600 
000021 



131460 

000002 
000015 

047530 

000012 



BR 



7$ 



.•HORIZONTAL TAB PROCESSOR 



047j30 



8S: 
9S: 



STYPEC; 



lOlS: 



102S: 
10S: 



131452 
000002 



000002 IS: 



novB 

JSR 
81 TB 
BNE 
TST 
BR 

TST8 
BPL 

nov 

BIC 

CMPB 

BNE 

TSTB 

BPL 

NOVB 

BIC 

CliPB 

BNE 

TST 



TST8 
BPL 
MOVB 
CMP8 
BNE 
CLRB 
BR 
CHP8 
BEQ 
INCB 
$CHARCNT:.UORD 
STYPEX: RTS 



#• -(SP) 
PC.iTYPEC 
#7.$CHARCNT 
9$ 

(SP)* 
2S 

aSTKS 
10$ 

a$TKB.-(SP) 
#1 77600, (SP) 
#$XOFf .(SP) 
102S 

a$TKS 
101S 

aSTKB.(SP) 
#177600. (SP) 

moN.(SP) 

101$ 
(SP)* 

a$TPS 

10$ 

2(SP).a$TPB 

#CR.2{SP) 

IS 

$CHARCNT 

STYPEX 

#LF,2{SP) 

STYPEX 

(PC)* 

0 

PC 



SEQUENCE 



.•LOOP 



.•REPLACE TAB WITH SPACE 
.•TYPE A SPACE 
.BRANCH IF NOT AT 
;TA8 STOP 

;P0P SPACE OFF STACK 
;;G£T NEXT CHARACTER 

.•.•CHAR IN KYBD BUFFER? 
;;BR IF NOT 
;;GET CHAR 

:; STRIP EXTRANEOUS BITS 
;;UAS CHAR XOFF 
;;BR IF NOT 

;;UAIT FOR CHAR 

;;6ET CHAR 
; .-STRIP if 
;;UAS IT XON? 
;;8R IF NOT 

;;FIX STACK 

;;UAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 
;:IS CHARACTER A CARRIAGE RETURN? 
.-.•BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

;;IS CHARACTER A LINE FEED? 
;. -BRANCH IF YES 
;; COUNT THE CHARACTER 
.-.-CHARACTER COUNT STORAGE 



;HJD001 
;MJD001 
;MJD001 
;«JD001 
.-MJDOOl 
;HJD001 
:HJD001 
;nJD001 
;HJD001 
;HJD001 
;HJD001 
;MJD001 
;njD001 
;«JD001 
;nJD001 
;njD001 

.-HJDOOI 



H 1 
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SEQUENCE 215 



MM 



.SBTTL BINARY TO OCTAL (ASCII) AND 1YPE 



0A753A 
0475A0 
047546 
047552 
047556 
047560 
047566 
047574 
047602 
047604 
047606 
047610 
047614 
047616 
047622 
047626 
047632 
047636 
047640 
047642 
047644 
047646 
047650 
047652 
047654 
047656 
047662 
047664 
047670 
047672 
047674 
047676 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100021 
042703 
001002 
005704 
001403 
005204 



*************************************************************** 

THIS ROUTINE IS USED TO CHANGE A 16>eiT BINARY NUMBER TO A 6*DIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. ^ ^ 

*$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL ' 

* * MOV NUM,-(SP) ; .-NUMBER TO BE TYPED 

* TYPOS ;;CALL FOR TYPEOUT 

* .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ;;M=1 OR 0 

* ;;1=TYPE LEADING ZEROS 

* ;;0=SUPPRESS LEADING ZEROS 

*STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
*CALL: 

* MOV NUM,-(SP) ; .-NUMBER TO BE TYPED 

* TYPON ;;CALL FOR TYPEOUT 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*^^'"'"' MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

* TYPOC .-.-CALL FOR TYPEOUT 



000000 

000001 047765 

047767 

000002 

000001 047765 
000006 047767 
000005 047764 



047767 

000C06 
047766 
047765 
000012 



04>766 
177770 



$ TYPOS: MOV 
MOVB 
MOVB 
ADD 
BR 

$TYPOC: MOVB 
MOVB 

STYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEC 
ADD 
MOVB 
MOVB 
MOV 
CLR 

IS: ROL 
BR 

2$: ROL 
ROL 
ROL 
MOV 

3S: ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEO 

4$: INC 



8(SP).-(SP) 

1(SP),$0FILL 

(SP)*,$0M0DE*1 

#2.(SP) 

STYPON 

*1.S0FILL 

#6.S0M0DE*1 

#5.S0CNT 

R3,-(SP) 

R4.-(SP) 

R5.-(SP) 

SOMODE^I .R4 

R4 

»6.M 

R4.$0M0Di: 

S0FILL,R4 

12(SP).R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,R3 
R3 

SOMODE 
7S 

#177770.R3 

4S 

R4 

5S 

R4 



.-.-PICKUP THE MODE 
.-.-LOAD ZERO FILL SWITCH 
.-.-NUMBER OF DIGITS TO TYPE 
.-.-ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 
;.-SET FOR SIX{6) DIGITS 
;;SET THE ITERATION COUNT 
.-.-SAVE R3 
.-.-SAVE R4 
- 'SAVE RS 

••GET THE NUMBER OF DIGITS TO TYPE 

.-.-SUBTRACT IT FOR MAX. ALLOWED 
.".-SAVE IT FOR USE 
.-.-GET THE ZERO FILL SWITCH 
;; PICKUP THE INPUT NUMBER 
.-.-CLEAR THE OUTPUT WORD 
.-.ROTATE MSB INTO "C" 
;:G0 DO MSB 
.-.-FORM THIS DIGIT 



.-.-GET LS8 OF THIS DIGIT 

.-.-TYPE THIS DIGIT? 

.-;BR IF NO 

;;GET RID OF JUNK 

.-.-TEST FOR 0 

;; SUPPRESS THIS 0? 

- 'BR IF YES 

••DON'T SUPPRESS ANYMORE O'S 



I 
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047700 
047704 
047710 
047714 
047716 
047722 
047726 
047732 
047734 
047736 
047740 
047742 
047744 
047746 
047750 
047756 
047760 
047762 
047763 
047764 
047765 
047766 



052703 
052703 
122703 
001404 
110337 
104401 
105337 
003344 
002402 
005204 
000741 
012605 
012604 
012603 
016666 
012616 
000002 
000 
000 
000 
000 
000000 



000060 
000040 
000040 

047762 
047762 
047764 



7$: 



6S: 



000002 000004 



8$: 

$0CNT: 
SOFILLi 



BIS 

BIS 

CMPB 

BEQ 

MOVB 

TYPE 

DECS 

BGT 

8LT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 



SOnODE: .WORD 



#'0.R3 
#• .R3 
#• .R3 
7$ 

R3,8$ 

.8$ 

SOCNT 

2S 

6$ 

R4 

2$ 

(SP)+,R5 

(SP)+,R4 

(SP)+,R3 

2(SP),4(SP) 

(SP)+.(SP) 

0 
0 
0 
0 
0 



.•MAKE THIS DIGIT ASCII 
;MAKE ASCII IF NOT ALREADY 
IS THIS A SPACE CHARACTER? 
BRANCH IF SO - DON'T TYPE 
;SAVE FOR TYPING 
;G0 TYPE THIS DIGIT 
.-COUNT BY 1 
:BR IF MORE TO DO 
:BR IF DONE 

.•INSURE LAST DIGIT ISN'T A BLANK 

;G0 DO THE LAST DIGIT 

.RESTORE R5 
:; RE STORE R4 
:;RESTORE R3 

;;SET THE STACK FOR RETURNING 
; .-RETURN 

;, -STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 

;; OCTAL DIGIT COUNTER 

;;ZERO FILL SWITCH 

; .-NUMBER OF DIGITS TO TYPE 



SEQUENCE 216 

.-DPM002 
;DPM002 
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SEQUENCE 21 7 



8A86 



0W770 
047776 
050004 
050006 
050014 
050014 
050016 
050020 
050024 
050026 
050034 
050036 
050044 
050046 
050052 
050060 
050064 
050066 
050072 
050074 
050076 
05D102 
050^04 
050110 
050116 
050120 
050126 
050134 
050140 
050144 
050U6 
050146 
050152 
050154 
050160 
050162 
050166 
050170 
050176 
050204 
05021 G 
050214 
050220 
050224 
050226 
050230 
050232 
050233 
050234 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 

000200 
000001 
000100 
000040 



000001 
000001 



050232 

000001 

000100 

000004 
000002 
00^316 

001332 

001332 

001334 
000004 

000004 
000002 
177776 
047174 

050234 

001336 

001316 

000004 
000002 
001316 
050234 
050233 
050232 



050234 
050232 



000001 050234 



00^336 
001337 

000004 



001316 

050144 
000004 



001320 
000004 



.S8TTL APT COMMUNICATIONS ROUTINE 



iATYl : 
$ATY3: 

$ATY4: 
$ATYC: 



1$: 



2$: 



3S: 



4$: 
5$: 
10S: 



IIS: 



12$: 



SMFL6 
SLFLG 
$FFL6 



M0V8 
MOVB 
BR 

MOVB 

MOV 

MOV 

TSTB 

BEO 

CMPB 

BNE 

BITB 

BEO 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SUB 

ASR 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 



TSTB 
BEQ 
TST 
BEQ 
TST 
BNE 
MOV 
ADD 
INC 
CLR6 
CLRB 
CLRB 
MOV 
MOV 
RTS 
.BYTE 
.BYTE 
.BYTE 
• EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 



#1,$FFLG 
«1,SMFLG 
SATYC 
#1,$FFL6 

RO.-(SP) 
R1,-(SP) 
SMFLG 
5S 

#APTENV,$ENV 
3$ 

«APTSPOOL,$ENVM 
3$ 

a4(SP).R0 

#2,4(SP) 
SMSGTYPE 
1$ 

RO.SMSGAD 

(RO)* 

2S 

$nSGAD,RO 
RO 

RO,$MSGLGT 

#4,$MSGTYPE 

5$ 

a4(SP),4$ 
#2.4 (SP) 
17^776, -(SP) 
PC,$TYPE 

0 

$FFL6 
12$ 
$ENV 
12$ 

$«S6TYPE 
11$ 

a4(SP),$FATAL 

#2,4(SP) 

SMSGTYPE 

SFFLG 

SLFLG 

SMFLG 

(SP)+,R1 

(SP)*,RO 

PC 

0 

0 

0 



::T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;; SHOULD TYPE A MESSAGE? 

;;IF NOT: BR 

.-.OPERATING UNDER APT? 

'If NOT * BR 

; -should' SPOOL MESSAGES? 

::IF NOT: BR 

:;GET MESSAGE ADDP. 

:;BUMP RETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION? 
;;IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
::FIND END OF MESSAGE 

;;SUB START OF MESSAGE 
.-.-GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

:;PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



; .-SHOULD REPORT FATAL ERROR? 

;;IF NOT: BR 

;; RUNNING UNDER APT? 

;:IF NOT: BR 

; .-FINISHED LAST MESSAGE? 

;:IF NOT: WAIT 

;;6ET ERROR # 

;:6UMP RETURN ADDR. 
;;TELL APT TO TAKE ERROR 
;; CLEAR FATAL FLAG 
;; CLEAR LOG FLAG 
;; CLEAR MESSAGE FLAG 
;;POP STACK INTO R1 
;;POP STACK INTO RO 

RE TURN 
;:MESS6. FLAG 
;:LOG FLAG 

FATAL FLAG 



CICFPCDO FP11F FLTG PNT PRT C 
TTY INPUT ROUTINE 

8A88 



050236 
050244 
050246 
050252 
050254 
050260 
050264 
050270 
050272 
050300 
050302 
050306 
050312 
050316 
050320 
050324 
050326 
050330 
050334 
050336 
050342 
050346 
050352 
050354 
050360 
050364 
050366 
050372 
050374 
050400 
050402 
050410 
050414 
050420 
050426 
050430 
050436 
050440 
050444 
050450 
050452 
050456 
050460 
050464 
050470 
050472 
050474 
050476 
050500 



022737 

001074 

105777 

100071 

117746 

042716 

022726 

001062 

123727 

001456 

104401 

104401 

013746 

104402 

104401 

005046 

005046 

105777 

100375 

117746 

042716 

021627 

001005 

104401 

062706 

000757 

021627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 



000176 

130672 

130666 
177600 
000007 



001134 000001 

050655 
050662 
000176 



050673 



130610 

130604 
1 77600 
000025 

050650 
000006 

000015 

000004 

000002 
000006 
001313 
001135 

000100 

047412 
000060 

000067 

000060 
000002 



000002 



K 1 

MACRO mi 13 30-0CT-81 11:15 PAGE 107 
.S8TTL TTY INPUT ROUTINE 

***************************************************************** 

'.ENABL LS8 

***************************************************************** 

;*S0FTUARE SWITCH REGISTER CHANGE ROUTINE. 
.-^ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
;*SERVJCE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
:*WHEN OPERATING IN TTY FLAG MODE. 



SEQUENCE ?18 



001140 iCKSWR 



130530 

000001 
130506 



$GTSWR: 



19$: 



7$: 



9$: 



20S: 
10$: 



11$; 
14$: 



15$: 
16$: 



17$: 



C«P 
BNE 
TSTB 
BPL 

novB 

SIC 

CMP 

BNE 

CMPB 

BEO 

TYPE 

TYPE 

MOV 

TYPOC 

TYPE 

CLR 

CLR 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TYPE 

ADD 

BR 

CMP 

BNE 

TST 

BEO 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 

TST 

BEO 

ASL 

ASL 

ASL 

INC 



#SWREG.SWR 
15$ 
a$TKS 
15$ 

a$TKB.-(SP) 
lfC177.(SP) 
#7.(SP)* 
15$ 

$AUT0B,*1 
15$ 

,$CNTLG 
,$MSWR 

SWREG.-(SP) 

,$MNEW 

-(SP) 

-(SP) 

a$TKS 

7$ 

a$TKB,-<SP) 

#*C177.(SP) 

(SP).#25 

10$ 

.$CNTLU 

#6,SP 

19$ 

(SP),#15 
16$ 
4(SP) 
11$ 

2(SP).aSWR 

#6.SP 

,$CRLF 

$INTAG,#1 

15$ 

#100,a$TKS 

PC,$TYPEC 
(SP). #60 
18$ 

(SP).#67 
18$ 

#60,(SP)+ 

2(SP) 

17$ 

(SP) 

(SP) 

(SP) 

2(SP) 



;;IS THE SOFT-SWR SELECTED? 
; .-BRANCH IF NO 
;;CHAR THERE? 

:;IF NO, DON'T WAIT AROUND 

;;SAVE THE CHAR 

;;STRIP-OFF THE ASCII 

;;IS IT A CONTROL G? 

;;N0. RETURN TO USER 

;;ARE UE RUNNING IN AUTO-MODE? 

; .-BRANCH IF YES 

;;ECHO THE CONTROL-G (*G) 

;;TYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

; .-PROMPT FOR NEW SWR 

;; CLEAR COUNTER 

;;THE NEW SWR 

;;CHAR THERE? 

;;IF NOT TRY AGAIN 

.-.-PICK UP CHAR 

;.MAKE IT 7-BIT ASCII 

;;IS IT A CONTROL -U? 

.-.-BRANCH IF NOT 

;;YtS. ECHO CONTROL -U CU) 

;; IGNORE PREVIOUS INPUT 

.-.LET'S TRY IT AGAIN 

;;IS IT A <CR>? 

; .'BRANCH IF NO 

;;YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 
:.-SAVE NEW SWR 
;; CLEAR UP STACK 
;;ECHO <CR> AND <LF> 
;:RE-ENABLE TTY KBD INTERRUPTS? 
.-.-BRANCH IF NOT 

;;RE-ENA8LE TTY KBD INTERRUPTS 
;; RETURN 
.-.-ECHO CHAR 
.-.-CHAR < 0? 
; .-BRANCH IF 
.-.-CHAR > 7? 
; .-BRANCH IF 



YES 
YES 



;;STRIP-OFF ASCII 
;;1S THIS THE FIRST CHAR 
.-.-BRANCH IF YES 
;;N0, SHIFT PRESENT 
;; CHAR OVER TO MAKE 
:; ROOM FOR NEW ONE. 
.-.-KEEP COUNT OF CHAR 



CKFPCOO FP11F FLTG PNT PRT C 
TTY INPUT ROUTINE 

050504 056616 177776 

050510 000707 

050512 104401 001312 

050516 000720 



050520 
050522 
050530 
050534 
050536 
050544 
050552 
050560 
050562 
050566 
050570 
050574 
050600 
050604 
050606 
050610 
050616 
050620 
050626 
050630 
050636 
050640 
050646 
050650 
050655 
050662 
050673 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
001744 
026627 
002407 
026627 
003003 
042766 
000002 
136 
136 
015 
040 
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18$: 
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SEQUENCE 219 



000002 



000004 
000004 
000023 



000040 000004 



125 
107 
012 
040 



015 
015 
123 
116 



.DSABL 
;;••*• 

.••THIS 
.••CALL 



BIS 
BR 
TYPE 
BR 
LS6 



-2(SP).(SP) 
7$ 

.SQUES 
^0$ 



;:SET IN NEW CHAR 
;;GET THE NEXT ONE 
;;TYPE ?<CR><LF> 
.-.•SIMULATE CONTROL -U 



*»••••*•»***»••••*•••*•••♦•••♦*••*••••••*****•*•••*•••••♦•• 

ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 



• * 
> * 



SRDCHR: 
1$: 



2$: 



000004 
130410 

130404 
177600 
000004 

130356 

130352 
177600 
000021 



000004 000021 3$: 
000004 000140 
000004 000175 



4$: 

$CNTLU: 
$CNTL6: 
MSUR: 
SMNEU: 



RDCHR 

RETURN HERE 



MOV (SP),-(SP) 

MOV 4(SP).2CSP) 

TST8 aSTKS 

BPL 1$ 

Move a$TK8,4{SP) 

BIC **C<177>.4(SP) 

CMP 4(SP).*23 

BNE 3$ 

TST8 8$TKS 

BPL 2$ 

MOVB a$TKB.-(SP) 

BIC #*C177.(SP) 

CMP (SP)*.*21 

BNE 2$ 

BR 1$ 

CMP 4(SP).m0N 

BEQ IS 

CMP 4(SP).#140 

BLT 4S 

CMP 4(SP>.*175 

B6T 4$ 

BIC «40,4(SP) 

RTI 

.ASCIZ /*U/<15><12> 

.ASCI2 /*6/<15><12> 

.ASCIZ <15><12>/SWR = 

.ASCIZ / NEW = / 



.-.INPUT A SINGLE CHARACTER FROM THE TTY 
.•.-CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 

.-.-PUSH DOWN THE PC 

;;SAVE THE PS 

;;WAIT FOR 

;;A CHARACTER 

;;READ THE TTY 

;;6ET RID OF JUNK IF ANY 

;;IS IT A CONTROL-S? 

.-.•BRANCH IF NO 

;:WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

.-.GET CHARACTER 

.-.•MAKE IT 7-BIT ASCII 

.•;IS IT A CONTROL-0? 

;;IF NOT DISCARD IT 

;;YES, RESUME 

;;IS IT A RANDOM XON? 

;. -BRANCH IF YES 

.-.-IS IT UPPER CASE? 

.-.-BRANCH IF YES 

.•;IS IT A SPECIAL CHAR? 

.-.•BRANCH IF YES 

;;MAKE IT UPPER CASE 

::G0 BACK TO USER 

.-.•CONTROL 'V 

.-.•CONTROL "6" 



:RAN001 
.RANOOl 



CRFPCDO FPTIF FLTG PNT PRT C 
TRAP DECODER 

8490 



050704 
050706 
050712 
050714 
050716 
050720 
050724 

050726 
050730 
050736 



050740 
050742 
050744 
050746 
050750 
050752 
050754 
050756 
050760 
050762 

8491 050764 

8492 



010046 
016600 
005740 
111000 
006300 
016000 
000200 

011646 
016666 
000002 



050726 
047174 
047560 
047534 
047574 
050306 
050236 
050520 
047076 
047134 
052050 
000026 



MACRO Hm3 30-0CT-81 11:15 



.S8TTL TRAP DECODER 



n 1 

PAGE 108 



SEQUENCE ^20 



000002 



050740 



000004 000002 



•THJS ROUTINE WILL PICKUP THE LOWER B^TE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDKESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 
STRAP; NOV RO.-(SP) ;;SAVE RO 

;;GET TRAP ADDRESS 
; .-BACKUP BY 2 
;;6ET RIGHT BYTE OF TRAP 
.-.-POSITION FOR INDEXING 
;; INDEX TO TABLE 
;;60 TO ROUTINE 
GETPRI' MACRO 



:;THIS 
$TRAP2 



NOV 
NOV 

TST 

MOV J 

ASL 

MOV 

RTS 
IS USF 
: NOV 

MOV 

RTl 



RO.-(SP) 
2(SP>.R0 
-(RO) 
(RO},RO 
RO 

STRPAD(RO).RO 

RO 

TO HANDLE THE 



(SP).-(SP) 
4(SP).2(SP) 



;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
.-.RESTORE THE PSW 



SBTTL TRAP TABLE 
•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
•BY THE "TRAP" INSTRUCTION. 
ROUTINE 



STRPAD: .WORD 
$TYPE 
STYPOC 
$ TYPOS 
STYPON 
$GTSWR 
SCKSWR 
SRDCHR 
SSAVREG 
SRESREG 
.RSET 

$TERM=.-$TRPAD 



$TRAP2 

CALL=TYPE TRAP+1 (104401) TTY TYPEOUT ROUTINE 

CALL=TYPOC TRAP*2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

CALL = TYPOS TRAP*3( 104403) TYPE OCTAL NUWER (NO LEADING ZEROS) 

CALL=TYPON TRAP*4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

CALL=GTSWR TRAP*5( 104405) GET SOFT-SWR SETTING 

CALL=CICSWR TRAP*6( 104406) TEST FOR CHANGE IN SOFT-SWR 

CALL=RDCHR TRAP*7( 104407) TTY TYPEIN CHARACTER ROUTINE 

CALL=SAVREG TRAP*10(104410) SAVE R0-R5 ROUTINE 

CALL-RESRE6 TRAP^ll (104411) RESTORE R0-R5 ROUTINE 

CALL^RSETUP TRAP*12(104412) ROUTINE TO INITIALIZE AT END OF EACH TEST 



CKfPCDO FP11F FLTG PNT PRT C 
POWER DOWN AND UP ROUTINES 
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SEQUENCE 221 



8494 



050766 
050774 
051002 
051004 
051006 
051010 
051012 
051014 
051016 
051022 
051026 
051034 
051036 



051040 
051046 
051052 
051056 
051062 
051064 
051070 
051072 
051074 
051076 
051100 
051102 
051104 
051112 
051120 
051122 
051124 
051126 
051130 
051136 
051142 
051144 
051146 
051150 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
01 7746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
052120 
012716 
006116 
042766 
005037 
000002 
000000 
000776 
000000 



051144 
000340 



130116 
051150 
051040 



,S8TTL POWER DOWN AND UP ROUTINES 



000024 
000026 



000024 



;POWER DOWN ROUTINE 

SPWRON: nOV #SILLUP,a#PWRVEC 

MOV #340,8#PWRVEC*2 

MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4,-(SP) 

MOV R5.-(SP) 

MOV aSUR.-(SP) 

MOV SP,SSAVR6 

MOV «SPWRUP,a#PURVEC 

HALT 

BR .-2 







******************************** 






; POWER UP ROUTINE 


051144 


000024 


SPWRUP: 


MOV 


#$ILLUP,a#PWRVEC 


051150 






MOV 


$SAVR6.SP 


051150 






CLR 


$SAVR6 


051150 




U: 


INC 


SSAVR6 








BNE 


IS 


130050 






MOV 


(SP)^,aSWR 








MOV 


(SP)*,R5 








MOV 


(SP)*,R4 








MOV 


(SP)*.R3 








MOV 


(SP)*.R2 








MOV 


(SP)*,R1 








MOV 


(SP)*.RO 


050766 


000024 




MOV 


iTSPWRDN.a/rPWRVEC 


000340 


000026 




MOV 


ir340.a«PWRVEC*2 








TYPE 








SPWRMG: 


.WORD 


POWERM 








MOV 


(PC)*.(SP) 






SPWRAD: 


.WORD 


START 


000020 


000002 




SIC 


#20,2(SP) 


046156 






CLR 


$T8IT 








RTI 








tILLUP: 


HALT 










BR 


.-2 






SSAVR6: 


0 





;SET FOR FAST UP 
PRI0:7 

PUSH RO ON S^ACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH 8SWR ON STACK 
SAVE SP 
;SET UP VECTOR 

;HANG UP 

;5ET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO 8SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

:SET UP THE POWER DOWN VECTOR 

PR10:7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTART AT START 

RESTART ADDRESS 

CLEAR "T" BIT 

CLEAR THE "T" BIT FLAG 



THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



CKFPCDO FP11F FLTG PNT PRT C 

POWER DOWN AND UP ROUTINES 

8A96 
8A97 
8A98 

8499 
8500 
8501 
8502 
8503 
8504 

8505 051152 104401 

8506 051154 001313 

8507 051156 113737 001102 

8508 051164 042737 177400 

8509 051172 013737 001116 

8510 051200 010046 

8511 051202 117700 130026 

8512 051206 042700 177400 

8513 051212 001006 

8514 051214 013746 001116 

8515 051220 104402 

8516 051222 104401 001313 

8517 051226 000561 

8518 051230 022700 000377 

8519 051234 001004 

8520 051236 017600 000004 

8521 051242 062700 000400 

8522 051246 010037 051576 

8523 051252 005300 

8524 051254 006300 

8525 051256 006300 

8526 051260 006300 

8527 051262 062700 001442 

8528 051266 012037 051276 

8529 051272 001406 

8530 051274 104401 

8531 051276 000000 

8532 051300 004737 051600 

8533 051304 104401 001313 

8534 051310 012037 051320 

8535 051314 001406 

8536 051316 104401 

8537 051320 000000 

8538 051322 004737 051600 

8539 051326 104401 

8540 051330 001313 
3541 051332 010146 

8542 051334 010246 

8543 051336 010346 

8544 051340 012001 

8545 051342 001506 

8546 051344 011000 

8547 051346 105710 

8548 051350 001003 

8549 051352 013146 

8550 051354 104402 

8551 051356 000473 
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SEQUENCE 



.S8TTL ERROR TYPE OUT ROUTINE 



*THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 



*IN THE ERROR MESSAGE DATA TABLE. 
*0R BY FIRST SETTING SITENB EQUAL 
*0UT AND THEN ECECUTING A: 
• JSR PCERTYPE 



IT IS CALLED BY THE SERROR ROUTINE 
TO THE ERROR TABLE ITEM TO BE PRINTED 



ERTYPE ! 



001232 
001232 
001234 



21$: 



20$: 



22$: 



2$: 



3S: 



4S: 



5$: 



ERT1 



TYPE 
.WORD 
NOVB 
BIC 

nov 

MOV 

MOVB 

BIC 

BNE 

MOV 

TYPOC 

TYPE 

BR 

CMP 

BNE 

MOV 

ADD 

MOV 

DEC 

ASL 

ASL 

ASL 

ADD 

MOV 

BEQ 

TYPE 

.WORD 

JSR 

TYPE 

MOV 

BEQ 

TYPE 

.WORD 

JSR 

TYPE 

.WORD 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

TSTB 

BNE 

MOV 

TYPOC 

BR 



$CRLF 

$TSTNM.$TMPO 
#1 77400, $TMPO 
$ERRPC,$TMP1 
RO,-(SP) 
8$TMP1 .RO 
*1 77400, RO 
21$ 

$ERRPC.-(SP) 

,$CRLF 
ERT5 
#377, RO 
20$ 

a4(SP),R0 
#400, RO 
RO.ERRNUM 

RO 
RO 
RO 
RO 

#$ERRTB.RO 

(R0)*,2i 

3$ 



PCPASCIZ 
,$CRLF 
(R0)*,4$ 
5$ 



PCPASCIZ 

$CRLF 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 

(r6)*,ri 

ERT4 
(R0),R0 
(RO) 
7$ 

a(Ri)*.-(SP) 

ERT2 



.•TYPE A CRLF 



;6ET PC OF CALL 
*SAVE RO 

•GET THE ITEM NUMBER. 



MOVE ERROR PC TO STACK FOR PRINTING 
GO TYPE THE ERROR PC 
TYPE A <CRLF> 
BRANCH TO EXIT 



;SAVE THE ERROR 
.•OTHERWISE MAKE 



# FOR POSSIBLE 
RO AN 



USE 



;0PM001 



; INDEX FOR THE TABLE. 



;PICK UP THE ADDRESS 

:0F THE EM, ERROR MESSAGE 



;G0 CHECK FOR AND PRINT ANY ADDTL ASCIZ ;DPM001 
;GET THE DH.DATA HEADER 



:G0 CHECK FOR AND PRINT ANY ADDTL ASCIZ .DPMOOI 



;SAVE R1,R2 AND R3 



:GET THE ADDRESS OF THE DATA TABLE. 
: RE TURN IF NO DATA. 

;6ET A POINTER TO THE DATA FORMAT TABLE. 
.■FORMAT ZERO? 

.•FORMAT ZERO SO TYPE 
;AN OCTAL NUMBER. 



CKFPCDO 


FP11F FLTG PNT 


pkt c 


ERROR TYPE OUT 


ROUTINE 




8552 


051360 


122710 


OOUUUf 


8553 


051364 


AAA A 4 A 

001010 




8554 


051^ 


013102 




8555 


051370 


012246 




8556 


0')1372 


104402 




8557 


051374 


104401 




3558 


051376 


052164 




8559 


051400 


011246 




8560 


051402 


104402 




8561 


051404 


000460 




8562 


051406 


122710 


UUUUU3 


8563 


051412 


001011 




8564 


051414 


013102 




8565 


051416 


012703 


UUUUUh 


8566 


051422 


012246 




8567 


051424 


104402 




8568 


051426 


4 A 4 / A 4 

104401 




8569 


051430 


052164 




8570 


051432 


077305 




8571 


051434 


0OO444 




8572 


051436 


4 ^^^4 A 

122710 


nnnnn/, 
UUUUUh 


8573 


051442 


A A 4 A A y 

001004 




8574 


051444 


A4 94 / £. 

013146 




8575 


051446 


4 A/ / AY 

104403 




8576 


051450 


A4 ^ 

016 




8577 


051451 


AAA 

000 




8578 


051452 


AAA/ TC 

000435 




8579 


051454 


122710 




8580 


05146C 


AA4 AAf 

001005 




8581 


051462 


A4 ^4 V7 

012137 




8582 


051466 


4 A / / A1 

104401 




8583 


05U70 


000000 




8584 


051472 


000427 




8585 


051474 


122710 


UUUU 1 1 


8586 


051500 


AA4 AAC 

001005 


051510 


8587 


051502 


A4 77 

013137 


8588 


051506 


4 A / / A 4 

104401 




8589 


051510 


AAAAAA 

000000 




8590 


051512 


000417 


nnOAi 9 

UUUU 1 £ 


8591 


051514 


122710 


8592 


051520 


AA4 A4 4 

001011 




8593 


051522 


A4 9 4 A1 

013102 




8594 


051524 


012703 


uuuuuo 


8595 


051530 


012246 




8596 


051532 


4 A/ y A'S 

104402 




8597 


051534 


4 A/ r A1 

104h01 




8598 


051536 


052164 




8599 


051540 


077305 




8600 


051542 


AAA/ A4 

000401 




8601 


051544 


AAAAAA 

000000 




8602 


051546 


4 Ay y A1 




8603 


051550 


052167 




8604 


051552 






8605 


051554 


005711 




8606 


051556 


001273 




8607 


051560 


104401 




8608 


051562 


001313 
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SEQUENCE 



r 








QIC 


9$ 




nu» 


















TVPF 








SPACE 






(R?) -(SP) 




TYPOC 






or* 


ERT2 


9S> 




#3 (RO) 






10$ 




MOV 






MOV 


#4,R3 




NOV 


(R2)^ -(SP) 




TVPOC 






TYPE 






UORD 


SPACE 

wr '^vk 




SOB 


R3,90$ 




BR 


ERT2 


10S* 




#4 (RO) 




BNE 


11$ 




NOV 


a(Ri)^.-(SP) 




TYPOS 

lit WW 






BYTE 


16 




BYTE 


0 




BR 


ERT2 


lit- 


CliPfi 


#5 (RO) 




BNE 


13$ 




NOV 


(Rl)^.12$ 




TYPE 


12S- 


UORD 


0 




BR 


ERT3 


13$: 


CMPB 


#11. (RO) 




BNE 


15$ 




NOV 


a(R1)>.14$ 




TYPE 




14$: 


.WORD 


0 




BR 


ERT3 


15$: 


CNP8 


#12. (RO) 




BNE 


17$ 




MOV 


a(R1)*.R2 




NOV 


#6.R3 


16$: 


NOV 


(R2)+.-(SP) 




TYPOC 






TYPE 






.WORD 


SPACE 




SOB 


R3 16$ 




BR 


ERT2 


17$: 


HALT 




ERT2: 


TYPE 






.WORD 


$TAB 


ERT3: 


INC 


RO 




TST 


(Rl) 




BNE 


ERT1 


ERT4: 


TYPE 






.WORD 


$CRLF 



.-FORMAT TWO? 

.•FORMAT TWO SO TYPE TWO 
.-OCTAL NUMBERS. 



; FORMAT THREE? 

.•FORMAT THREE SO TYPE 4 OCTAL NUMBERS. 

.•LOOP COUNTER 

;MOVE DATA TO THE STACK 

.-TYPE AN OCTAL NUMBER 

;TYPE A SPACE 

.-SUBTRACT 1 AND BRANCH IF NOT DONE YET ;DPM001 
.-EXIT 

.-FORMAT FOUR? 

;FORMAR FOUR SO TYPE 
.-AN OCTAL NUMBER 
.SUPPRESSING LEADING ZEROES. 



.•FORMAT FIVE? 

.-FORMAT FIVE SO TYPE AN 
.-ASCIZ STRING. 



.•FORMAT ELEVEN? 

.-FORMAT ELEVEN SO PICK 
;A POINTER TO AN ASCIZ 
.•STRING. 

.•FORMAT TWELVE? 

.•FORMAT TWELVE SO TYPE 
.-TYPE SIX OCTAL NUMBERS 



.•UNDEFINED FORMAT FOR DATA????? 

.-PRINT A TAB AFTER TYPING A DATA TABLE ENTRY 

;0F ALL FORMATS EXCEPT ASCIZ, FORMATS 5 OR 11 

.-POINT TO THE NEXT FORMAT 

.-END OF DATA TABLE. 

.-DONE. 



CKFPCOO FP11F FLTG PNT PRT C 
ERROR TYPE OUT ROUTINE 
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SEQUENCE 



8609 
6610 
6611 
8612 
8613 
86U 
8615 



051564 
051566 
051570 
051572 
051574 



012603 
012602 
012601 
012600 
000207 



ERT5: 



MOV 
MOV 
MOV 
MOV 
RTS 



051576 000000 



ERRNUM: .WORD 



(SP)*,R3 
(SP)*,R2 
(SP)*, R1 
(SP)*,RO 
PC 



.•RESTORE R1,R2 AND R3 



.•RESTORE RO. 
;AND RETURN. 



.■LOCATION TO HOLD CURRENT ERROR NUMBER ;DPM001 



CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-0CT-81 11:15 
SUBROUTINE TO LOOK FOR ANY ADDITIONAL HSGS TO PRINT 
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8616 

8617 051600 

8618 051602 

8619 051606 

8620 051612 

8621 0516U 

8622 051616 

8623 051622 

8624 051624 

8625 051626 

8626 051632 

8627 051634 

8628 051636 

8629 051640 

8630 051642 

8631 051646 

8632 051650 

8633 051652 

8634 051656 

8635 051660 

8636 051662 

8637 051664 

8638 051666 

8639 051672 

8640 051674 

8641 051676 

8642 051700 

8643 051702 

8644 051704 

8645 051706 

8646 051710 

8647 051712 

8648 051716 

8649 051720 

8650 051722 

8651 051724 

8652 051726 

8653 051730 



010446 
013704 
122714 
001013 
005204 
032704 
001401 
005204 
012437 
001763 
104401 
000000 
000772 
122714 
001027 
005204 
032704 
001401 
005204 
005046 
005216 
023724 
001374 
005724 
001376 
005744 
005724 
005316 
001375 
005726 
011437 
001403 
104401 
000000 
000726 
012604 
000207 



047172 
000377 



000001 
051636 

000376 
000001 

051576 



PASCIZ: 
1$: 



051722 



2$: 



3$: 
4$: 



5$: 
6$: 



7$: 



8S: 



9$: 



10$: 
11$: 



.S8TTL 

nov 
nov 

CHP8 

BNE 

INC 

BIT 

BEQ 

INC 

MOV 

BEQ 

TYPE 

.WORD 

BR 

CMP8 

BNE 

INC 

BIT 

BEQ 

INC 

CLR 

INC 

CMP 

BNE 

TST 

BNE 

TST 

TST 

DEC 

BNE 

TST 

MOV 

BEQ 

TYPE 

.WORD 

BP 

MOV 

RTS 



SUBROUTINE TO 

R4,-(SP) 

E0^SCI.R4 

#377. (R4) 

4$ 

R4 

#BIT00,R4 

2$ 

R4 

(R4)*.3$ 
1$ 

0 

2$ 

#376, (R4} 
11$ 

R4 

/r8IT00,R4 

5$ 

R4 

-(SP) 
(SP) 

ERRNUM,(R4)^ 
6$ 

(R4)* 
7$ 

-(R4) 
(R4) + 
(SP) 
8$ 

(SP) + 
(R4) ,10$ 
11$ 

0 
1$ 

(SP)*, R4 
PC 



LOOK FOR ANi' ADDITIONAL MSGS TO PRINT 
SAVE R4 

■MOVE END OF ASCII ADDRESS TO R4 
;SEE IF ADD'L MSGS NEED TO BE PRINTED 
; BRANCH IF NOT 
INCREMENT TO NEXT BYTE 
;SEE IF ODD ADDRESS 
; BRANCH IF NOT 
; POINT TO WORD ADDRESS 
;MOVE ADDRESS TO LOCATION FOR TYPING 
60 CHK FOR MORE MSG ADRS'S IF NO MORE 
TYPE THE MESSAGE, ADDRESS IN NEXT WORD 
;LOCATION FOR MESSAGE ADDRESS 
iBRANCH BACK TO LOAD OTHER MESSAGES 
SEE IF SPECIFIC MSGS NEED PRINTING 
;SRANCH TO EXIT IF NOT 
INCREMENT TO NEXT BYTE 
SEE IF ODD ADDRESS 
; BRANCH IF NOT 
;POINT TO WORD ADDRESS 
CLEAR COUNTER LOCATION ON STACK 
INCREMENT COUNTER 
;SEE IF ITEM NUMBER MATCHES ERROR 
; BRANCH IF NOT TO SEARCH AGAIN 
SEE IF AT TERMINATOR YET 
;BRANCH BACK UNTIL IT IS 
;PUT R4 AT THE TERMINATOR 
; POINT R4 TO NEXT ADDRESS 
;SEE IF COUKTER DOWN TO ZERO YET 
;8RANCH BACK IF NOT TO ADVANCE R4 
;POP COUNTER OFF STACK 
;MOVE ADDRESS TO LOCATION TO TYPE 
;8RANCH IF NO EXTRA MESSAGE TO PRINT 
TYPE THE ASCII MESSAGE 
iLOCATION FOR ASCII MESSAGE ADDRESS 
;G0 BACK TO MAKE SURE NO MORE MSGS 
; RESTORE R4 
;EXIT 



SEQUENCE 



DPMOOl 
;DPM001 
; DPMOOl 
: DPMOOl 
; DPMOOl 
DPMOOl 
;DPM001 
; DPMOOl 
; DPMOOl 
; DPMOOl 
DPMOOl 
DPMOOl 
DPMOOl 
; DPMOOl 
; DPMOOl 
; DPMOOl 
DPMOOl 
DPMOOl 
; DPMOOl 
DPMOOl 
; DPMOOl 
DPMOOl 
DPMOOl 
DPMOOl 
; DPMOOl 
DPMOOl 
; DPMOOl 
DPMOOl 
; DPMOOl 
; DPMOOl 
;DPM001 
;DPM001 
;DPM001 
DPMOOl 
DPMOOl 
; DPMOOl 
DPMOOl 
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SEQUENCE 226 



86S4 
8655 

6656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
866A 
8665 
8666 
8667 
8668 
8669 



051732 
051740 
051 744 
051746 
051750 
051754 
051756 
051762 
051764 
051766 



042737 
011637 
022626 
170200 
010037 
170300 
010037 
104377 
000041 
104412 



.S8TTL FPP SPURIOUS TRAP TO 244 HANDLER 



000001 
001236 



001240 
001242 



•THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
•THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
•THESE A10N6 WITH THE FEC. FPS AND PC OF TRAP ARE REPORTED. 



177572 FPSPUR; 



8670 051770 000137 045420 



BIC 

nov 

CMP 

STFPS 

MOV 

STST 

MOV 

ERROR 

.WORD 

RSETUP 



JMP 



*8IT00,HHR0 
(SP).$TMP2 
(SP)*.(SP)* 
RO 

R0.$TMP3 

RO 

R0,$TMP4 

♦3^7 

41 



$EOP 



MAKE SURE MEMORY MANAGEMENT IS OFF 
SAVE PC OF TRAP. 
RESTORE SP. 
GET FPS 

MOVE IT TO $TMP3 
GET FEC 

MOVE IT TO $TMP4 
CALL ERROR 
ERROR #441 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
JUMP TO $EOP 



;DPM001 



CKFPCDO FPIIF FLTG PNT PRT C 
CPU SPURIOUS TRAP TO 4 HANDLER 

8671 
8672 

8673 
8674 

8675 051774 042737 000001 

8676 052002 011637 001236 

8677 052006 022626 

8678 052010 104377 

8679 052012 000042 

8680 052014 104412 



8681 052016 000137 045420 



G 2 

HACRO M1113 30-0CT-81 11:15 PAGE 113 

.S8TTL CPU SPURIOUS TRAP TO 4 HANDLER 

' •***#••*********•************•*************•*********•*******•** 

•iTHIS ROUTINE REPORTS UNEX^wCTED CPU TRAPS TO VECTOR 4. 



SEQUENCE 227 



177572 CPSPUR: 



BK 

HOV 

CMP 

ERROR 

.WORD 

RSETUP 



JMP 



#8IT00,mR0 

(SP).$THP2 

(SP)*,(SP)* 

♦377 

42 



SEOP 



MAKE SURE MEMORV MANAGEMENT IS OFF 
SAVE PC OF TRAP. 
CLEAN STA'-K 
CALL ERROR 
ERROR #442 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 
JUMP TO SEOP 



;DPM001 
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CPU SPURIOUS TRAP TO 10 HANDLER 
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8682 






8683 






8684 






8685 






8686 


052022 


042737 


8687 


052030 


011637 


8688 


052034 


022626 


8689 


052036 


104377 


8690 


052040 


000043 


8691 


052042 


104412 


8692 


052044 


000137 



000001 177572 
001236 



.SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 

iTHlS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 
* 



CPTUO: 



1$: 



BIC 

nov 

C«P 
ERROR 
.WORD 
RSETUP 



JMP 



#8IT00,WR0 

(SP),$THP2 

{SP)*,(SP)+ 

♦377 

43 



SEOP 



MAKE SURE MEMORY MANAGEMENT IS OFF 
SAVE PC OF TRAP. 
CLEAN STACK 
CALL ERROR 
ERROR «443 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHAf^GE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
JUMP TO SEOP 



SEQUENCE 228 



.DPMOOl 
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SEQUENCE 229 



8693 
8694 

8695 
8696 
8697 
8698 
8699 
8700 
8701 

8702 052050 

8703 052056 
870A 052060 
8705 

8706 052062 

8707 052070 

8708 052076 

8709 052104 

8710 052106 

8711 052112 

8712 0521U 

8713 052116 



023727 
001001 
104406 

012737 
012737 
012737 
011600 
012706 
005004 
170104 
000110 



051732 
051774 
052022 

001100 



000244 
000004 
000010 



.S8TTL FLAG RESET AND CONSOLE TEST ROUTINE 
******************************* ***************************«***** 
■ *************************************************************** 

iTHlS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
*RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 
* CONTROL 6 ON THE TERMINAL. IF THE USER HAS TYPED CONTROL 6 AND 
*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
*0F THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 
*TELETYPE AND THE USER CAN MODIFY IT. 
» 



001140 177570 .RSET: 



1$: 



CMP 


SWR, #177570 


BNE 


1$ 


CKSWR 




MOV 


#FPSPUR.FPVECT 


MOV 


fCPSPUR.ERRVECT 


MOV 


fCPTWOJO 


MOV 


(SP).RO 


MOV 


#STACK,SP 


CLR 


R4 


LDFPS 


R4 


JMP 


(RO) 



SEE IF THERE IS A PHYSICAL CONSOLE SWITCH REGISTER. 
BRANCH IF NOT 

OTHERWISE TYPE THE CONTENTS OF THE PROGRAM VIRTUAL 
SWITCH REGISTER AND GIVE THE USER CHANCE TO MODIFY IT 



SAVE RETURN ADDRESS. 
RESET THE STACK POINTER. 
CLEAR THE FPS. 



.•RETURN. 



CKFPCDO FP11F FLTG PNT PRT 
SPECIAL MESSAGES 
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SEQUENCE 230 



8714 










.S8TTL 


SPECIAL MESSAGES 
<CRLF>'POUER FAILURE. PROGRAM 


8715 052120 


200 


120 


4 4 Y 

117 


POWERM: 


.ASCI2 


8716 052164 


040 


040 


000 


SPACE : 


.ASCIZ 


8717 052167 


Oil 


000 




STAB: 


.ASCIZ 


<TAE> 

•GOT RESULT: •<TAB><TAB> 
•EXPECTED RESULT: •<TA8> 
At UrcKANU: <IAB><IA8> 

•SOURCE OPERAND: •<TA8> 


8718 052171 


107 


4 4 *9 

117 


124 


MSI: 


.ASCIZ 


8719 052207 


4 A P 

105 


130 


4 

120 


MS2: 


.ASCIZ 


Or c\) vjccji 


101 






MS3: 


.ASCIZ 


8721 052247 


123 


117 


125 


MS4: 


.ASCIZ 


8722 


052231 






MS10=MS3 




8723 052271 


105 


130 


120 


MSll: 


.ASCIZ 


•EXPONENT OPERAND :'<TA8> 
•LOADED :^<TAB><TA8> 
•TRIED TO L0AD:^<TA8> 


8724 052314 


114 


117 


101 


MS20: 


.ASCIZ 


8725 052326 


124 


122 


111 


HS21 : 


.ASCIZ 



CK^PCDO FP11F fLTG PNT PRT C 
ERROR MESSAGES 
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SEQUENCE 231 



8726 

87A6 0523A6 
8747 052350 



8748 
8749 
8750 
8751 
8752 
8753 



052352 
052362 
052373 
052412 
052422 
052424 



8754 052426 

8755 052436 

8756 052452 

8757 052454 

8758 052456 

8759 052466 

8760 052502 

8761 052504 

8762 052506 

8763 052520 

8764 052531 

8765 052543 

8766 052552 

8767 052563 

8768 052565 

8769 052566 

8770 052574 

8771 052576 

8772 052600 

8773 052610 
0526fD 

052612 

8774 052650 

8775 052653 

8776 052662 

8777 052670 

8778 052702 

8779 052717 

8780 052721 

8781 052723 

8782 052725 

8783 052727 

8784 052731 

8785 052733 

8786 052735 

8787 052737 

8788 052741 

8789 052742 

8790 052756 

8791 052761 



123 
377 

052362 
124 
040 
040 
123 
377 

052362 
056 
123 
377 

052362 
056 
123 
377 

052520 
124 
056 
056 
040 
123 
377 

052520 
123 
377 



377 

052653 
106 
200 
051 
040 
040 
060 
061 
062 
063 
064 
065 
066 
067 
123 
377 

052520 
053 
123 



000 



052373 
106 
104 
106 
000 



052436 
040 
000 



052466 
040 
000 



052531 
106 
040 
040 
106 
000 



052552 
000 



052650 
104 
050 
040 
127 

in 

000 
000 
000 
000 
000 
000 
000 
000 
000 



052756 
056 
000 



052520 052543 052552 



052662 
000 
102 
123 
105 
116 



E«1: 



EHIB 
EH1C 
EMID 
E«2: 



En2e: 

E«3: 



En3S: 
E«4: 



En4A 
En4B 
En4C 
En4D 
EMS: 



EM6: 



EM6C: 



IFD: 
CRBUT; 
PRST: 
UENTTO: 
INSTOF: 
NO: 
N1 
N2 
N3 
N4 
N5 
N6 
H7 
EM7 



052531 

000 EM7B: 
EM10: 



052412 
040 
111 
111 



052412 
106 



052412 
106 



052543 
040 
122 
106 
101 



000000 



.SBTTL 

.ASCIZ 

• BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCJZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.UORO 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 



ERROR MESSAGES 

I S i' 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L AStIZ MSGS. ADDRESSES 2 LINES DOWN 

EMIB.EMIC.EMID.O 

:TF A.AC71 

: DID NOT TRAP.! 

! FID=O.I 

I S I 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM1B.EM2B.EH1D.0 

:. FPS BAD. ; 

I S ' 

377 ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM1B,EM3B,EM1D.0 
!. FEC BAD. I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM4A,EM4B,EM4C,EM4D,0 

;TF A,(R)! 
:. RO BAD.! 
!. FDSTl 
! FAILED.! 
! S ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM4A,EM4D.O 

! S ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM4A,EM4C,EM4D,EM6C 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT, IFD, PRST,N7,N0,N7,WENTT0,N2,N4,N5. INSTOF ,N2,N4.N4.0 

IFDI 

<CRLF>!(BUT ! 
I) ST I 
I WENT TO ! 
! INSTEAD OF ! 

!0: 
!1 ! 
!2: 
13! 

:4; 
;5; 

16! 

' 7 ' 
I 5 j 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM4A , EM 7B , E M4B , EM4 C . EM4D , 0 

IS! 
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ERROR MESSAGES 
















377 








• BYTE 










.EVEN 




05P764 


052520 


052756 


052552 


EM11: 


.UORD 


879^ 


052774 


123 


AAA 

000 




.ASCIZ 




052776 


377 








.BYTE 












.EVEN 


8796 


053000 

w«/ vv 


053012 


AC 1C T1 

052531 


052543 


EMI IB : 


.UORD 


8797 


053012 


124 


104 


040 


. ASCIZ 


8798 


053024 


123 


AAA 

000 




EM12: 


.ASCIZ 


8799 


053026 


377 








.BYTE 














.EVEN 


8800 

WWW 


053030 


053012 


AC C ^ 

052552 


000000 


EM13: 


.UORD 


8801 


053036 


123 


AAA 

000 




.ASCIZ 


8802 


053040 


377 








.BYTF 














.EVEN 


8803 


053042 


053050 


AC VA^ A 

053060 


000000 




.WORD 


8804 


053050 


124 


1 A/ 

104 


040 


EM13A: 


.ASCIZ 


8805 


053060 


040 


124 


122 


EMI 38; 


.ASCIZ 


8806 




053036 






EM14=EM13 


8807 


053104 


123 


AAA 

000 




EM15: 


.ASCIZ 


8808 


053106 


377 








.BYTE 














.EVEN 


8809 


053110 


053050 


AC C ^ 

052552 


000000 




.UORD 


8810 


053116 


120 


1 AT 


040 


EM16: 


.ASCIZ 


8811 


053135 


377 








.BYTE 














.EVEN 


8812 


053136 


053050 


A AAA A A 

000000 






.UORD 


8813 


053142 


123 


AAA 

000 




EMI 7: 


.ASCIZ 


88U 


053144 


377 








.BYTE 














.EVEN 


8815 


053146 


053154 


AC TAX. Ay 

053060' 


000000 




.UORD 


8816 


053154 


124 


i A/ 

iOh 


040 


EMI 78: 


.ASCIZ 


8817 


053166 


123 


AAA 

000 




EM20: 


.ASCIZ 


8818 


053170 


377 








.BYTE 














.EVEN 


8819 


053172 


053154 


AC '^C 7 i 

052531 


052543 




.UORD 


8820 


053204 


123 


AAA 

000 




EM21 : 


.ASCIZ 


8821 


053206 


377 








.BYTE 














.EVEN 


8822 


053210 


053154 


AC OC C ^ 

052552 


000000 




.UORD 


882^ 




053204 






EM22=EM21 


8824 


053216 


123 


AAA 

000 




EM23: 


.ASCIZ 


8825 


053220 


377 








.BYTE 














.EVEN 


8826 


053222 


053230 


AC TA^A 

053060 


000000 




.UORD 


8827 


053230 


124 


1 A/ 

104 


040 


EM238: 


.ASCIZ 


8828 


053243 


123 


000 




EM24: 


.ASCIZ 


8829 


053245 


377 








.BYTE 














.EVEN 


8830 


053246 


053230 


AC OC T1 

052531 


052543 




.UORD 


8831 


053260 


123 


Ann 
000 




EM25: 


.ASCIZ 


8832 


053262 


377 








.BYTE 














.EVEN 


8833 


053264 


053230 


AC OCC O 

052552 


000000 




.UORD 


8834 


053272 


123 


AAA 

000 




EM26: 


.ASCIZ 


8835 


053274 


377 








.BYTE 














.EVEN 



11;15 PAGE 117-1 SEQUENCE 232 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOUN 

EM4A.EH7B.EH4D.0 

I S ' 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDHESSfS 2 LINES DOWN 

EM11B,EM4B,EM4C,EM4D,0 
iTD A.<R)*! 

I S I 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM11B.EM4D,0 

I S I 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM13A,EM13B.O 
:td A,#N! 

! TRAP TO 4 IN FDST..' 

! S I 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM13A,EM4D.0 
:PC bad AFTER S! 

377 ;FLA6S 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM13A,0 

1 5 j 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM17B.EM136,0 
!TD A,-(R)! 
I S I 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 

EM17B,EM4B,EM4C.EM4D,0 

I S J 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 
EM17B.EM4D.0 

' S J 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 
EM23B,EM13B,0 

:td A,a(R)^: 

' S ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCU MSGS, ADDRESSES 2 LINES DOUN 
EM23B,EH4B.EM4C,EM4D.O 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOUN 
EM23B,EH40,0 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 
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ERROR MESSAGES 












8836 


053276 




0S3OA0 

VJJVWl 


000000 


tncoe: 


.WORD 


8837 


053304 


I £«l 




040 


Acr f 7 
.ASC 1/ 


8838 


053317 


1 ?X 


nnn 

vvv 




CII07 . 

cncf : 


.AdlJ/ 


8839 


053321 


^77 








ovrc 












.cVcN 


8840 


053322 






ACOC/ 1 

09c943 




.WORD 


88A1 


053334 




000 

vvv 




cmta • 
cWjO: 


Acr f 7 
.A51 JZ 


8842 


053336 


^77 






















C UC Al 


88A3 


053340 






AAAAAA 
000000 




Lino A 


8844 


053346 




000 

vvV 






A c r r 7 


8845 


053350 


^77 








ovrc 
.or IC 














CWCAI 


8846 


053352 


0533A0 


053060 


AAAAAA 
OOUOUO 




.WORD 


8847 


053360 


1 


1 V*t 


U4U 


En31B: 


AC r 1 7 


8848 


053372 


1 Cj 


000 




tnic: 


Acr t 7 


8849 


053374 


377 

Jf 1 








DVTC 
.OT 1 C 














C UCAI 


8850 


053376 


yjjjjov 


05P551 


U?£)4j 


CMXX • 


.WORD 


8851 


053410 


1?3 

t CJ 


000 

vvv 




Acr f 7 


8852 


053412 


377 

Jf f 








ovrc 
.or It 














CWCAJ 

.tVcN 


8853 


053414 


ns^3<^o 


\J JC J JC 


nAAAAA 




LI/lDf\ 

. WUNU 


8854 


053422 


1?3 


000 
wv 




cmxl • 


ACT f 7 


8855 


053424 


377 








DVTC 
.OT 1 C 














C l/CM 


8856 


053426 




053060 


AAAAAA 




.WORD 


8857 


053434 




104 

1 V"t 




CMXLa ■ 


Acr t 7 


8858 


053447 


123 


000 
wv 






Acr I 7 


8859 


053451 


177 








ov rc 
.OT 1 C 














C UCAI 
.t VtN 


8860 


053452 




052531 

V^b ■ 


U9£34 j 




. wUKU 


8861 


053464 


123 


000 

vvv 






ACf f 7 


8862 


053466 


377 








PVTP 
• or 1 C 














8863 


053470 




052552 

V^C ^ 


nAAAAA 

\)\J\)\)\)\) 




.WORD 


8864 


053476 


123 


124 




CMX7 ' 

tnjf : 


ACf I 7 


8e65 


053522 


376 

Jt U 








QVTC 

.or 1 c 














CUCkl 


8866 


053524 


000037 


000042 


(\(\t\f\LL 




. WUnD 


8867 


053542 


000000 

www 


053616 






Ltnoft 
. WUnD 


8868 


053556 


123 


124 


1 AT 


CM/ n • 


ACf 1 7 


8869 


053572 


Jf o 








.BYTE 














.EVEN 


8870 


053574 


000040 

w w~ w 


000041 

vwv~ ■ 


AAA A/. » 




.WORD 


8871 


053606 




052466 


ACTAC7 




.WORD 


8872 




053556 






E«41=E«40 


8873 




053476 






EH42=EH37 


8874 


053616 


200 


ill 


1 1 A 


En428: 


.ASCI2 


8875 




053556 






En43=En40 


8876 


053652 


056 


040 

V^ V 


1 AA 


Em3B: 


.ASCII 


8877 


053665 


377 








.BYTE 














.EVEN 




053666 


052653 


053724 


052662 




.WORD 


8878 


053724 


105 


132 


102 


lEZBT: 


.ASCIZ 


8879 




053476 






EH44=E«37 


8880 


053731 


200 


114 


117 


En44B: 


.ASCIZ 



n 2 

11:15 PAGE 117-2 SEQUENCE 233 

EH26B.Eni36,0 
ITD A,a-(R): 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

En266,En4B,En4C,En4D,0 

> J > 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM26B.EM4D,0 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM318.EM13B.0 
ITD A,N(R): 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM31B.EM4B.EM4C,EM4D,0 

I S I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM31B.EM4D.0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM34B. EMI 36.0 

:td A.aN(R): 

! S ' 

377 ; FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM34B.EM4B.EM4C.EM4D.0 

I S I 

377 .FLAGS 'ERTYPE* TO PtilW ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM348.En4D,0 

:STCFD A.(R) FAILED.: 

376 .FLAGS 'ERTYPE' TO PRINT ERR 0 SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 

37.42-44,45,47,50.0 

0 . EM426 , EM446 . EM4 5B , EM4 7B . EM506 

ISTCFD A.{R)! 

376 .-FLAGS 'ERTYPE' TO PRINT ERR » SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 

40.41,43,46,0 
EM2B,EH3B,EM436,En466 

<CRLF>: INVERT FDFL ST 767 FAILED..' 
!. FPS BAD.! 

377 .flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

cr8ut.iezbt.prst.n5.n6.no,wentto,no.n6.n1.1nstof .n2. n6.n1.0 
:ezbt: 

<crlf>:lou order bits of xii did not get 0 ST 766.: 



N 2 

CKFPCDO FP11F FLTG PNT PRT C HACROMlllS 30-0CT-81 11:15 PAGE 117-3 SEQUENCE ?5<, 

ERROR MESSAGES 



377 ;FLAGS 'ERTyPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES ? LINES DOW^ 
CRBUT,IEZBT,PRST,NA,N2,Nl,WtNTT0,N2,N6,N2,INST0F.N0,N6,N?.0 

I I 

377 .-FLAGS 'ERTVPf TO PRINT ADDT'L ASCIZ HSGS, ADDRESSES 2 LINES DOWN 
CRSUT,IFD,PRST,N1.N1.N3,JENTT0,N4,N1,NSJNST0F.N4,N1,N4,0 

: SIGN BAD. ; 

377 .flags 'ertype* to print addt'l asciz msgs. addresses 2 lines down 

cr8ut.ien6t,prst,n5,n6.n7,uentto,n0,n6«n0,instof,n4.n6,n0.0 

:enbt; 

iSTCDF A,(R): 

376 :FLA6S 'ERTYPE' TO PRINT ERR « SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 

51,54,55.60,0 
EM4D,EM5AB,EM55B,EM60B 
ISTD A,(R}i 

376 .-FLAGS 'ERTYPE' TO PRINT ERR « SPECIFIC ASCIZ MSGS, ADRS 3 LINES DOW 

52.53.56.57.61.0 
EM26,EM3B,EM566,EM57B,EM61B 



377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 L1»<ES DOWN 

CR8UT,IBKOUT,PRST,N4,NO,NO,UENTTO,N7,N6,N6,INSTOF,N7,N6.N7.0 
{BREAKOUT I 

I. FPS BAD.! 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

cr8ut.iezbt,prst,n4,n2,n1,uentt0,n0,n6,n2,inst0f,n2,n6,n2,0 

! fps bad. fiv=0.! 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

cr8ut.ifiv,prst,n2,n6,n2,uentto,n1,n2,n3,instof,n1,no,n3,0 
:fiv: 

: FAILED. Fiv=i.: 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT,lFIV,PRST,N2.N6,N2,yENTT0,Nl,N0,N3,INSTOF,Nl,N2,N3,0 

I fp% BAD 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LiNfS DOWN 



8381 




053476 






EM45=EM37 


8882 


054006 


200 


050 


102 


EM456: .ASCIZ 


8883 




053556 






EM46=EM40 


8884 


054041 


056 


040 


106 


EM46B: .ASCIZ 


8885 


054054 


377 






.BYTE 












.EVEN 




054056 


052653 


053724 


052662 


.WORD 


8886 




053476 






EM47=EM37 


8887 


054114 


040 


000 




EM47B: .ASCIZ 


8888 


054116 


377 






.BYTE 












.EVEN 




054120 


052653 


052650 


052662 


.WORD 


8889 




053476 






EM50=:EM^7 


8890 


054156 


040 


123 


111 


EM50B: .ASCIZ 


8891 


054171 


377 






.BYTE 












.EVEN 




054172 


052653 


054230 


052662 


.WORD 


8892 


054230 


105 


116 


102 


lENBT: .ASCIZ 


8893 


054235 


123 


124 


103 


EM51: .ASCIZ 


8894 


0S4251 


376 






.BYTE 












.EVEN 


8895 


054252 


000051 


000054 


000055 


.WORD 


8896 


054264 


052552 


054336 


054402 


.yORD 


8897 


054274 


123 


124 


104 


EM52: .ASCIZ 


8898 


054306 


376 






.BYTE 












.EVEN 


8899 


054310 


000052 


000053 


000056 


.WORD 


8900 


054324 


052436 


052466 


054473 


.WORD 


8901 




054274 






EM53=EM52 


8902 




054235 






EM54=EM51 


8903 


054336 


040 


106 


101 


EM54B: .ASCIZ 


8904 




054235 






£M55=£M51 


6905 


054402 


200 


122 


117 


EMSSB: .ASCIZ 


8906 


054423 


377 






.BYTE 












.EVEN 




054424 


052653 


054462 


052662 


.yORD 


8907 


054462 


102 


122 


105 


IBKOUT: .ASCIZ 


8908 




05/.274 






EM56-EM52 


8909 


054473 


056 


040 


106 


EM56B: .ASCIZ 


8910 


054506 


3/7 






.BYTE 












.EVEN 




054510 


052653 


053724 


052662 


.WORD 


8911 




054274 






EM57=EM52 


8912 


054546 


040 


106 


120 


EM57B: .ASCIZ 


8913 


054567 


377 






.BYTE 












.EVEN 




054570 


052653 


054626 


052662 


.WORD 


8914 


054626 


106 


111 


126 


IFIV: .ASCIZ 


8915 




054235 






EM60=EM51 


8916 


054632 


0<0 


106 


101 


EM60B: .ASCIZ 


8917 


054652 


377 






.BYTE 












.EVEN 




054654 


052653 


054626 


052662 


.WORD 


8918 




054274 






EM61=EM52 


8919 


054712 


056 


040 


106 


EM61B.- .ASCIZ 


8920 


054725 


377 






.BYTE 



.EVEN 



L 



CKFPCOO FP11F FLTG PNT PRT C 
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054726 

8921 05476A 

8922 054771 

8923 054776 

8924 055000 

8925 055010 

8926 055020 

8927 055022 

055024 

8928 055062 

8929 055067 

8930 055074 

8931 055076 

8932 055104 

8933 055147 

8934 055150 

8938 055154 
055154 

8939 055177 

8940 055200 

8941 055204 

3942 055206 

8943 055220 

8944 055226 
055226 

8945 055251 

055252 

8946 055310 
055310 

8947 055333 

8948 055342 

8949 055344 

8950 055350 

8951 055357 

8952 055360 

8953 055364 

8954 055370 

8955 055372 

8956 055400 

8957 055404 

8958 055406 

8959 055414 

8960 055420 

8961 055422 

8962 055430 

8963 055434 



052653 
106 
123 
377 

055010 
104 
040 
377 

052653 
106 
123 
377 

055010 
103 
377 

052552 

103 
000 
103 
377 

055220 
104 

103 
377 



103 
116 
377 

052552 
116 
377 

052436 
116 
377 

055220 
116 
377 

055220 
116 
377 

055220 
101 
377 



054764 
114 
124 



052436 
040 
000 



055062 
104 
124 



052466 
114 



000000 
114 
114 



052531 
040 

114 



114 
105 



000000 
105 



000000 
105 



052552 
105 



052531 
105 



052436 
102 



PMCRO mil3 



052662 

101 IFLAG 
103 EH62: 



055020 

101 E«62A 
EN62B 



052662 

123 >ST 
103 ./i63: 



000000 

122 En64: 



EM65: 

122 

122 EW 



052543 
050 

122 



052653 055062 052662 



En67: 



EM70: 



122 
107 E«71; 



107 EM72: 



107 EH73; 



000000 

107 E«74: 



000000 

107 EM75; 



000000 

123 EM76: 



OCT-81 11:15 PAGE 117-4 



SEQUENCE 235 



.WORD CR8UT. IFLAG. PRST.N1.N4,N7.UENTTO.N3.N6.N1.INSTOF.N3.N6.N5,0 

.Asciz :flag: 

.Asciz .stcf: 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOUN 
.EVEN 

.WORD EN62A.En2B,EH62B.0 

.ASCIZ ID A.AC6I 

ASCI 2 ' * 

'.am 177 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CR6UT,1FDST.PRST,N7,N6,N7,UENTTO,NS.N6«N?,INSTOF,N5,N7,N7,0 

.ASCIZ ;fdst; 

.ASCIZ ;stcf: 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ HSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En62A.En3B.O 

.ASCIZ iCLRD <R) FAILED!<CRLF>IZERO XII AT ST 7701 

.BYTE 377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOUN 
.EVEN 

.WORD En4D,0 

.ASCIZ iCLRD (R). FPS BAD.! 

.BYTE 0 

.ASCIZ :clr: 

.BYTE 377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En666.En4B.EM4C,En4D.O 

.ASCIZ ID (R)! 

.ASCIZ iCLRD AC7. FPS BAD..' 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CR8UT.IFDST.PRST.N7.N7,N0.WENTTO.N6.N0.N7.INSTOF.N6.Nl.N7.0 

.ASCIZ iCLRD AC7. FEC BAD.! 

.ASCIZ :ne6f a: 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EmD.O 

.ASCIZ .'NEGF A! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En28,0 

.ASCIZ INEGi 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ HSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En666,En4D.O 

.ASCIZ INEG! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En66B,EM;B,0 

iSYTE^ 377^' .FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En66B.EM2B.0 

.ASCIZ !ASS; 

•BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



CKFPCDO FP11F FlTG PNT PRT C MACRO M1113 30 
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8964 
8965 
8966 
8967 
8968 


055436 
055444 
055453 
055503 
055507 


055444 
104 
040 
101 
377 


055453 
040 
124 
102 


000000 
050 
122 
123 


EM76A: 
EM768: 
En77: 


8969 
8970 
8971 


055510 
055516 
055522 


055444 
101 
377 


052552 
102 


A AAA A A 

000000 
123 


EMI 00: 


8972 
8973 
8974 


055524 
055532 
055536 


055444 
101 
377 


052531 
102 


AA AA A A 

000000 
123 


EM 1 01: 


8975 
8976 
8977 


055540 
055546 
055552 


055444 

4 A4 

101 
377 


052436 
102 


000000 
123 


EMI 02: 


8978 
8979 
8980 
8981 


055554 
055562 
055571 
055575 


055562 
104 
101 
377 


055453 

A/ A 

040 
102 


000000 

ACC 

055 
123 


p U4 A^n 

EM102B 
EMI 03: 


8982 
8983 
8984 


055576 
055604 
055610 


AC C C^ ^ 

033362 
101 
377 


AC^CC^ 

032332 
102 


AAAAAA 

000000 
123 


EMI 04: 


8985 
8986 
8987 


AC 1 ^ 

055612 
055620 
055624 


AC C C^ ^ 

033362 
101 
377 


AC^CTI 

032331 
102 


AAAAAA 

000000 
123 


EMI 05: 


8988 
8989 
8990 


055626 

AC T/ 

0336j4 
055640 


055562 

1 Ai 

101 
377 


052436 

1 A^ 

102 


000000 
123 


CMi AZ. . 


8991 
8992 
8993 
8994 


055642 

AC C^ C A 

05'>650 
055660 
055664 


055650 

1 A/ 

104 
116 
377 


055453 

A/ A 

040 
105 


000000 

i AA 

100 
107 


CMi AZB 

EM 1066 
EM107: 


8993 

8996 
8997 


ACC^^^ 

033666 
055674 
055700 


033220 
101 
377 


ACC/ CT 

102 


AAAAAA 
000000 

123 


EMI 10: 


8998 
8999 
9000 


035702 
055710 
055714 


ACC^CA 

033630 
101 
377 


AC^CC^ 

032332 
102 


AAAAAA 

000000 
123 


EM1 11 : 


9001 
9002 
9003 


055716 
055724 
055730 


055650 
101 
377 


052531 
102 


000000 
123 


EM1 12: 


9004 
9005 
9006 


055732 
055740 
055744 


055650 
116 
377 


052436 
105 


000000 
107 


EM1 13: 



OCr-81 11:15 PAGE 117-5 



SEQUENCE 236 



• EVEN 

.WORD EM76A,EH76B.O 

.ASCIZ !D (R)*! 

.ASCIZ ; TRAP TO 4 IN SRC MODE.! 

.ASCIZ I ABS! 

.BYTE 377 .-FLAGS 'ERTYPE* TO PRINT 
.EVEN 

.WORD EM76A,EH4D.O 

.ASCIZ iABS! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM76A,EM4B,0 

.ASCIZ !ABS! 

.BYTF 377 .-FLAGS 'ERTYPE' TO PRINT 

• EVEN 

.WORD EM76A,EM2B.O 

.ASCIZ !ABS! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM102B.EM76B.0 

.ASCIZ !D -(R)! 

.ASCIZ !ABS! 

.BYTE 377 ; FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM102B.EM4D.0 

ASCIZ lABSl 

iSYTE 377 ' .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM102B.EM4B.0 

.ASCIZ IABS! 

.BYTE 377 .-FLAGS 'ERTYPE* TO PRINT 
.EVEN 

.WORD Eni02B.EM2B.O 

.ASCIZ IABS! 

.BYTE 377 ; FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM106B,EM76B,0 

.ASCIZ ID a(R)*! 

.ASCJZ !neg: 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM666,EM76B.O 

.ASCIZ iABS! 

.bfTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM106B,EM4D.O 

.ASCJZ iABS! 

.BYTE 377 ; FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM106B.EM4B.0 

.ASCIZ IABS! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 

.WORD EM106B.EM2B.0 

.ASCIZ iNEGI 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT 
.EVEN 



ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
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SEQUENCE 257 



ERROR PASSAGES 




9007 
9008 
9009 
9010 


055746 
055754 
055764 
055770 


055754 
104 
116 
377 


9011 
9012 
9013 


055772 
056000 
056004 


055754 
116 
377 


9014 
9015 
9016 


056006 
056014 
056020 


055754 
116 
377 


9017 
9018 
9019 


056022 
056030 
056034 


055754 
101 
377 


9020 
9021 
9022 
9023 


056036 
056044 
056053 
056057 


056044 
104 
101 
377 


9024 
9025 
9026 


056060 
056066 
056072 


056044 
101 
377 


9027 
9028 
9029 


056074 
056102 
056106 


056044 
101 
377 


9030 
9031 
9032 


056110 
056116 
056122 


056044 
116 
377 


9033 
9034 
9035 
9036 


056124 
056132 
056142 
056146 


056132 
104 
116 
377 


9037 
9038 
9039 


056150 
056156 
056162 


056132 
116 
377 


9040 
9041 
9042 


056164 
056172 
056176 


056132 
116 
377 


9043 
904; 
9045 


056200 
056206 
056212 


056132 
116 
377 


9046 
9047 
9048 
9049 


056214 
056222 
056232 
056236 


056222 

1 T\L 
1 Mh 

116 
377 


9050 


056240 


056222 



055453 000000 

040 100 EH! 136: 
105 107 E«114: 



052552 000000 

105 107 £«115: 



052531 000000 

105 107 EM116: 



052436 000000 

102 123 EM117: 



055453 000000 

040 116 EMI 178: 
102 123 EMI 20: 



052552 000000 

102 123 EM121 



052531 000000 

102 123 EMI 22: 



052436 000000 

105 107 EMI 23: 



055453 000000 

040 100 EMI 238: 
105 107 EM124: 



052552 000000 

105 107 EM125: 



052531 000000 

105 107 EM126: 



052436 000000 

105 107 EM127: 



055453 000000 

040 116 EMI 278: 
105 107 EMI 30: 



052552 000000 



.WORD 

.ASCIZ 

.ASCIZ 

•SyTE 

.EVEN 

.yORD 

.ASCIZ 

.BYTE 

• EVEN 
.UORD 
.ASCJZ 
.BYTE 
.EVEN 
.UORD 
.ASCiZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 

• EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.UORD 
.ASCIZ 
.BYTE 
.EVEN 
.UORD 
.ASCiZ 
.BYTE 
.EVEN 
.UORD 
.ASCIZ 
.ASCJZ 
.BYTE 
.EVEN 
.UORD 
.ASCJZ 
.BYTE 
.EVEN 
.UORD 
.ASCIZ 
.BYTE 
.EVEN 
.UORD 
.ASCJZ 
.BYTE 
.EVEN 
.UORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.UORD 



EM113B,En76B,0 
ID a-(R)! 
'NE6' 

377 ' ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM113B,En4D,0 
'NEG ! 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM113B,EM4B,0 

'NEG ' 

377 ' .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM113B.EKI2B,0 
! ABS I 

377 ' .'FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM117B.EM76B.0 
;d N(R)I 
lABSi 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM117B,EH4D.O 
'ABS ' 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM117B.EM4B,0 

'ABS ' 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM117B.EM2B.0 
'NEG ' 

377 ' ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM123B.En76B.O 
ID aN(R)! 

ineg: 

377 .flags 'ertype' to print addt'l ascjz msgs. addresses 2 lines down 

EM123B.EH4D.0 
'NEG! 

377 ' .'FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM123B,EM4B,0 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM123B.EM2B.0 

'NEG ' 

377 ' .'FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM127B,EM76B,0 
ID N(R7)I 

377^' .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM127B.EM4D.0 
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ERROR MESSAGES 




























9052 


U30£H0 

056252 


116 

177 


105 


107 


EH131: 


.ASCIZ 
.8VTE 
.EVEN 
.WORD 
•ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
•BYTE 
.EVEN 
.WORD 
.ASCIZ 
•BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 


INEG' 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LIKES 


DOWN 


9053 

9054 
once 


056254 
056262 


056222 
101 
377 


052436 
102 


000000 
123 


EH132: 


EM127B.En2B.O 

lABS; 

377 ;FLA6S 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9056 
9057 

9059 


056270 
056276 

056313 


056276 
104 
101 
177 


055453 
040 
102 


000000 
100 
123 


EM1328: 
E«133: 


EM132B,£M768,0 
ID aN(R7); 
lABS! 

377 ; FLAGS 'ERTYPE* 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9060 

tUO I 

9062 


056314 

VjOjcc 

056326 


056276 
101 
177 


052552 
102 


000000 
123 


EM134: 


EM132B,EM4D,0 
i ABS ! 

377 ' ; FLAGS 'ERTYPE' 


TO PRINT ADDT'L ASCIZ MSGS, 


ADDRESSES 


2 


LINES 


DOWN 


9063 
9065 


056330 
056401 


056276 
116 
377 


052436 
105 


000000 
107 


EM135: 


EM132B,En2B,0 

INEGD A FAILED. I<CRLF>:X0R 

377 .-FLAGS 'ERTYPE' TO 


SIGN BIT ST 3361 

PRINT ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9066 

TWOf 

9068 


056402 
056415 


052552 
116 
177 


000000 
105 


107 


EMI 36: 


EM4D,0 

INEGD Al 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9069 

0070 

9071 


056416 
056431 


052552 
116 
177 


000000 
105 


107 


EM137: 


EM4D,0 
INEGD A! 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9072 

Q07^ 

9074 


056432 

O^AA^A 
U^OH JO 

056442 


052436 
116 
377 


000000 
105 


107 


EMI 40: 


EM2B.0 

INEG! 


TO 


PRINT 




ADDRESSES 


2 


LINES 


DOWN 


9075 
9076 
0077 


056444 
056452 


055220 
116 
177 


052552 
105 


000000 
107 


EMI 41 : 


EM666.EM4D.0 

INEGI 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9078 
9079 

QOAO 

9081 


056460 
056472 

OS^SIO 

v^O^ 1 w 

056514 


055220 
040 
116 
177 


052531 
123 
105 


056472 
120 
107 


EM141C: 
EH142: 


EM666«EM4B.EM141C.EM4D. 

I SPECIAL DEST! 
INEGI 

377 ; FLAGS 'ERTYPE' 


0 

TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9082 
9084 


056516 
056530 


055220 
116 
177 


052436 
105 


000000 
107 


EM143: 


EM666.EM2B.0 

INEGI 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS, 


ADDRESSES 


2 


LINES 


DOWN 


9085 

00 

9087 


056532 
056544 


055444 
116 
177 


052552 
105 


000000 
107 


EMI 44: 


EM76A,EM4D.0 

INEG! 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS, 


ADDRESSES 


2 


LINES 


DOWN 


9088 
9089 
9090 


056546 
056556 
056562 


055444 
116 
177 


052531 
105 


056472 
107 


EMUS: 


EM76A,EM4B.EM141C,0 

INEGI 

377 .FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 


9091 
9092 
9093 


056564 
056572 
056576 


055444 
116 
177 


052436 
105 


000000 
107 


EMI 46: 


EM76A.EM28.0 

INEGI 

377 .-FLAGS 'ERTYPE' 


TO 


PRINT 


ADDT'L ASCIZ MSGS. 


ADDRESSES 


2 


LINES 


DOWN 



.EVEN 
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SEQUENCE 239 



9094 05660C 

9095 056606 

9096 056612 

9097 05661 4 

9098 056626 

9099 056632 

9100 056634 

9101 056642 

9102 056646 

9103 056650 

9104 056656 

9105 056662 

9106 056664 

9107 056676 

9108 056702 

9109 056704 

9110 056712 

9111 056716 

9112 056720 

9113 056726 

9114 056732 

9115 056734 

9116 056746 

9117 056752 

9118 056754 

9119 056762 

9120 056766 

9121 056770 

9122 056776 

9123 057005 

9124 057011 

9125 057012 

9126 057026 

9127 057053 

9128 057057 

9129 057060 

9130 057066 

9131 057072 

9132 057074 

9133 057102 

9134 057112 

9135 057116 

9136 057120 

9137 057126 



055562 052552 

116 105 
377 

055562 052531 

116 105 
377 



055562 
116 
377 

055650 
116 
377 

055650 
116 
377 

055650 
116 
377 

055754 
116 
377 

055754 
116 
377 

055754 
116 
377 

056776 
106 
116 
377 

056776 
056 
116 
377 

056776 
116 
377 

057102 
104 
116 
377 

057102 
120 



052436 
105 



052552 
105 



052531 
105 



052436 
105 



052552 
105 



052531 
105 



052436 
105 



052552 
040 
105 



052531 
040 
105 



052436 
105 



052552 
040 
105 



052436 
103 



000000 
107 



056472 
107 



000000 
107 



000000 
107 



056472 
107 



000000 
107 



000000 
107 



056472 
107 



000000 
107 



000000 
050 
107 



057026 
102 
107 



000000 
107 



000000 
050 
107 



000000 
040 



EH147: 
E«150; 
EH151: 
EMI 52: 
EM153: 
EMI 54: 
EMI 55: 
EMI 56: 
EMI 57: 



EMI 578: 
EMI 60: 



EMI 606: 
EM161: 



EMI 62: 



EM162B: 
EMI 63: 



EM164: 



.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.tVEN 

.UOPD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

•ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.yORO 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 



EM102B,EM4D,0 
I NEC! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



EM102B,EM4B.EM141C,EM4D,0 

!NEG! 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM102B.EH2B.0 

INEGI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM106B,EM4D,0 

;ne6! 

377 ; flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 
emi 06b . em4b , emi 41 c . em4d , 0 

.'NEC! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM106B,EM2B.O 

INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM113B,EH4D,0 

INEG! 

377 .-flags 'ertype' to print addt'l asciz msgs. addresses 2 lines down 

em113b.eh4b,em141c.em4d.o 

ineg; 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

EM113B,EM2B,0 

INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



EM157B.EM4D,0 

IF (R)*! 
INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM157B,EM4B,EM1606.EM141C,EM4D,0 

I. BAD CONSTANT USED.! 

INEG! 

377 ;FLA6S 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM157B.EH2B,C 
INEG! 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM162B,EM4D.O 

ID (R7)*! 
INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM162B,EM2B,0 

IPC BAD AFTER NEG! 
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ERROR MESSAGES 








9138 


057147 


377 






9139 
9140 
9U1 


057150 
057156 
057162 


057102 
116 
377 


057026 
105 


000000 
107 


9142 
9143 
9144 


057164 

057172 

\j J t lie 

057176 


055220 
101 
377 


052552 
102 


000000 
123 


9145 
9146 
9147 


057200 
057206 
057212 


055220 
124 
377 


052552 
123 


000000 
124 


9148 
9149 
9150 


057214 
057222 
057226 


055220 
116 
377 


052552 
105 


000000 
107 


9151 
9152 
9153 


057230 
057236 
057242 


055220 
101 
377 


052436 
102 


000000 
123 


9154 
9155 
9156 


057244 
057252 
057256 


055220 
124 
377 


052436 
123 


000000 
124 


9157 
9158 
9159 


057260 
057266 
057272 


055220 
116 
377 


052436 
105 


000000 
107 


9160 
9161 
9162 


057274 
057302 
057306 


055220 
101 
377 


052466 
102 


000000 
123 


9163 
9164 
9165 


057310 
057316 
057322 


055220 
124 
377 


052466 
123 


000000 
124 


9166 
9167 
9168 


057324 
057332 
057336 


055220 
116 
377 


052466 
105 


000000 
107 


9169 
9170 
9171 
9172 
9173 


057340 
057346 
057354 
057410 
057414 


057346 
106 
120 
116 
377 


052436 
040 
117 
105 


000000 
101 
127 
107 


9174 
9175 
9176 

91 ft 


057416 
057426 
057463 

AC7/ A7 


055220 
200 
116 
377 


052552 
130 
105 


057426 
117 
107 


9178 
9179 


057470 
057474 


055220 
377 


052436 






057476 


052653 


054230 


052662 



G 3 
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377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



EMI 74 : 
EH175: 
EMI 76: 



EMI 768: 
EMI 77; 
EM200: 



EM200C ; 
EM201 : 



.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.UORO 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 



EMl62B,Eni60B,0 

INEG! 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM66B,Cn4D,0 

I ABS I 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM668.EM4D.0 

ITST! 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM66B.EM4D.0 

INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM66B,EM2B,0 

lABS! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM66B,EM2B,0 

ITST! 

377 ; FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM666,EM2B,0 

iNEGI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM66B,EM3B,0 

I ABS I 

377 ' ;FLAGS *ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM666,EM3B,0 

! TST ! 

377 ' ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM66B,EM3B,0 

!NEGi 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM1766,EM2B.O 
IF AC7I 

IPOWER MONITOR BIT FOUND SET! 
INEG! 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM668,EM4D,EM200C,0 

<CRLF>IXOR SIGN BIT FAILED ST 336. i 

INEG! 

377 ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM66B,EM2B 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT,IENBT,PRST,N3,N3,N6,WENTT0,N0,N5,N3,INST0F,N4,N5,N3,0 



CKFPCDO FPIIF FLTG PNT PRT C 
ERROR MESSAGfS 



9180 05753A 

9181 0575A0 

9182 057542 

9183 057546 

05/550 

9184 057606 

9185 057612 

9186 057614 

9187 057620 

057622 

9188 057660 

9189 057716 

9190 057723 

9191 057730 

9192 057734 

9193 057736 

9194 057746 

9195 060003 

9196 060007 

9197 060010 

9198 060014 

060016 

9199 060054 

9200 060060 

9201 060062 

9202 060066 

060070 

9203 060126 

9204 060132 

9205 060134 

9206 060140 

060142 

9207 060200 

9208 060204 

9209 060206 

9210 060212 

060214 

9211 060252 

9212 060256 

9213 060260 

9214 060316 

9215 060331 

9216 060335 



116 
377 

055220 
377 

052653 
101 
377 

055220 
377 

052653 
052653 
054 
117 
101 
377 

055220 
200 
124 
377 

055220 
377 

052653 
124 
377 

055220 
377 

052653 
124 
377 

055220 
377 

052653 
124 
377 

055220 
377 

052653 
124 
377 

055220 
063 
124 
377 



105 
052436 



054230 
102 



052552 



057723 
054230 
040 
120 
102 



052552 
130 
12J 



052552 



057723 
123 



052436 



054230 
123 



052552 



057723 
123 



052552 



054230 
123 



052552 
061 
123 



HACRO mi13 3 



107 EH202: 



052662 

123 EH203: 



052662 

052662 

117 OR: 
061 I0P18: 
123 EM204: 



057746 

117 E«204C 
124 En205: 



052662 

124 E«206: 



052662 

124 EM207: 



052662 

124 EM210: 



052662 

124 EM211 



052653 

061 N3132: 
124 EM212: 



H 3 

OCT-81 11:15 PAGE 117-10 



SEQUENCE 



.Asciz :neg: 

.BYTE 377 .-FLAGS 'ERTVPE* 10 PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En66B.En2B 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CRBUT.IENBT.PRST.N3.N3.N6.UENTT0.N4.N5.N3.INST0F,N0.N5.N3.0 

.ASCIZ :abs! 

.BYTE 377 ; FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM66B.En4D 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CRBUT.IOP1B.PRST.N0,N5.N5.WENTT0.N3.n3.N6.IN5TOF,n3.N3.N5,OR 

.WORD CRBUT.IENBT.PRST.N3.N3.N5.WENTTO.N4.N5.N2,INSTOF.NO.N5.N2,0 

.ASCIZ ;. OR! 

.ASCIZ iopib: 

.ASCIZ .'ABSI 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM666.En4D.En204C.O 

.ASCIZ <CRLF>!XOR SIGN BIT FAILED ST 452.! 

.ASCIZ !TSTi 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD Ef1666.EM4D 

.BYTE 377 ; FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CR8UT, IOPIB. PRST.NO.N5.N5.WENTTO,N3.N3.N6.INSTOF.N3.N3.N4.0 

.ASCIZ !tst: 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM66B.En26 

.BYTE 377 ;FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CR8UT,IENBT,PRST.N3.N3.N4.WENTT0.N4.N5,N3,INST0F.N0,N5,N3,0 

.ASCIZ !TST! 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM66B.En4D 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CR8UT, IOPIB. PRST.N0,N5.N7,WENTTO,N3,N3.N5.INSTOF.N3.N3.N4.0 

.ASCIZ :TST! 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM66B.EnAD 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CRBUT.IEN6T,PRST,N3.N3,N4.WENTTO.N0.N5.N3.INSTOF.N4.N5.N3.O 

.ASCIZ iTSTI 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM666, EM4D.CRBUT. IOPIB. PRST.N2.^5.N5,WENTT0.N3132,INST0F,N3.N1. NO. 0 

.ASCIZ 1311 OR 3121 

.ASCIZ JTST! 

.BYTE 377 .-FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



CKFPCDO fPlIF FLTG PNT PRT C 
ERROi; MESSAGES 
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.EVEN 


9217 060336 


055220 


052436 






.WORD 


9218 060 3A2 


377 








.BYTE 












.EVEN 


060344 


052653 


054230 


052662 




.WORD 


9219 060A02 


124 


123 


124 


EM213: 


.ASCIZ 


9220 060A06 


377 








.BYTE 












.EVEN 


9221 060410 


055220 


052436 


060460 




.WORD 


9222 060A20 


377 








.BYTE 












.EVEN 


060A22 


052653 


060506 


052662 


EI1213C: 


.WORD 


9223 060460 


040 


106 


111 


. ASCIZ 


9224 060470 


054 


040 


117 


EM2'i3D: 


.ASCIZ 


9225 060506 


106 


111 


125 


IFIUV: 


.ASCIZ 


9226 060513 


124 


123 


124 


EI1214: 


.ASCIZ 


9227 060517 


377 








.BYTE 












.EVEN 


9228 060520 


055220 


052436 


060570 




.WORD 


9229 060530 


377 








.BYTE 












.EVEN 


060532 


052653 


060506 


052662 




.WORD 


9230 060570 


040 


106 


111 


En214B: 


.ASCIZ 


9236 060600 


120 


000 




EM215: 


.ASCIZ 


9237 060602 


377 








.BYTE 












.EVEN 


9238 060604 


060647 


060635 


060664 




.WORD 


9239 060624 


067 


064 


066 


N746T2: 


.ASCIZ 


9240 060635 


116 


105 


107 


NE6DNR: 


.ASCIZ 


9241 060647 


103 


040 


102 


PCSAD: 


.ASCIZ 


9242 060664 


056 


040 


102 


BADCON: 


.ASCIZ 


9243 060711 


056 


000 




PERJOD: 


.ASCIZ 


9244 060713 


200 


117 


122 


BUTJN: 


.ASCIZ 


9245 060735 


116 


105 


107 


En216: 


.ASCIZ 


9246 060741 


377 








.BYTE 












.EVEN 


9247 060742 


056044 


052552 


000000 




.UORD 


9248 060750 


116 


105 


107 


EM217: 


.ASCIZ 


9249 060754 


377 








•BYTE 












.EVEN 


9250 060756 


056044 


052531 


056472 




.WORD 


9251 060770 


116 


105 


107 


EM220: 


.ASCIZ 


9252 060774 


377 








•BYTE 












.EVEN 


9253 060776 


056044 


052436 


000000 




.WORD 


9254 061004 


120 


000 




EM221 : 


.ASCIZ 


9255 061006 


377 








.BYTE 












.EVEN 


9256 061010 


060647 


061041 


060664 




.WORD 


9257 061030 


067 


064 


067 


N747T2: 


.ASCIZ 


9258 061041 


116 


105 


107 


NEGDAR: 


.ASCIZ 


9259 061054 


116 


105 


107 


En222: 


.ASCIZ 


9260 061060 


377 








.BYTE 












.EVEN 


9261 061062 


056132 


052552 


000000 




.WORD 


9262 061070 


116 


105 


107 


EM223: 


.ASCIZ 


9263 061074 


377 








.BYTE 



EM666,En2B 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CR6UT,IENBT,PRST,N3,N1,N0,WENTT0,N4,N0.N2JNST0F,N0,N0,N2.0 

ITSTI 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM66fl , EH2B . EM21 3C , EH21 3D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT. IFIUV, PRST.N2.N5,N7.WENTTO,N3.N5,N5.INSTOF.N2.N5.N5,0 

! FIUVsO! 

I, OPERAND=-0.! 

IFIUV! 
I TST ! 

377 ' ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM666,EM2B,EM2UB,EM2130 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT, IF IUV,PRST.N2,N5,N7.WENTT0.N2.N5.N5.INST0F.N3,N5.N5,0 

I FIUV=1! 
I p I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

PCBAD,NEGDNR,BADC0N.N746T2,BUTIN,EM141C,EM4D,0 

!746 746.! 

INEGD N(R)! 

iC BAD AFTER I 

!. BAD CONSTANT USED ! 

<CRLF>!OR (BUT FDST) INi 
iNEGI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM117B,EM4D,0 

INEGI 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

em117b,em4b,em141c,em4d,0 

!neg; 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

EM117B,EM2B.0 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

PC8AD.NEGDAR,BADC0N.N747T2.BUTIN.EM141C,EM4D,0 

1747 >47.: 
INEGD aN(R)l 
INEGI 

377 .-FLAGS cRTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM123B.EM4D.0 

INEGI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



CKFPCDO FP11F FLTG PNT PRT C 
ERROR MESSAGES 



J 3 
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SEQUENCE 2i>l 



9264 061076 

9265 061110 

9266 061 lU 

9267 061116 

9268 061124 

9269 061126 

9270 061130 

9271 061136 

9272 061147 

9273 061151 

9274 061152 

9275 061160 

9276 061162 

9277 061164 

9278 061172 

9279 061211 

9280 061213 

9281 061214 

9282 061222 

9283 061234 

9284 061236 

9285 061240 

9286 061246 

9287 061250 

9288 061252 

9289 061260 

9290 061262 

9291 061264 

9292 061272 

9293 061304 

9294 061306 

9295 061310 

9296 061316 

9297 061320 

9298 061322 

9299 061330 

9300 061332 

9301 061334 

9302 061342 

9303 061355 

9304 061357 

9305 061360 

9306 061366 

9307 061370 



056132 
116 
377 

056132 
114 
377 

061136 
104 
114 
377 

C61136 
114 
377 

061136 
040 
114 
377 

061222 
104 
114 
177 

061222 
114 
377 

061222 
114 
377 

061272 
104 
114 
377 

061272 
114 
377 

061272 
114 
377 

061342 
104 
114 
377 

061342 
114 
377 



052531 
105 



052436 
000 



052531 
106 
000 



052436 
000 



061172 
124 
000 



052531 
106 
000 



052436 
000 



061172 
000 



052531 
106 
000 



052436 
000 



061172 
000 



052531 
106 
000 



052436 
000 



056472 
107 



000000 



000000 
120 



000000 



000000 
122 



000000 
120 



000000 
000000 



000000 
120 



000000 
000000 



000000 
120 



000000 



En224: 
EM22S: 



EM225B: 
En226: 



EH227; 



EM227B: 
EM230: 



En2306: 
E«231 : 



EH232: 
En233: 



En233B: 
EM234: 



E«235: 
En236: 



EM236e: 
EK237: 



En240: 



.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 



E«1 23B . EH4B , EH1 41 C . EM4D . 0 

INEG! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESS»=S 2 LINES DOWN 

EM123B,EH2B.O 

' L ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM225B.En4B.O 

IDFPS (R)! 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM225B.EM2B.0 

!L! 

377 .FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM225B.EM227B,0 
! TRAPPED TO 4.! 

' L ! 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM2308.EM4B.0 
IDFPS (R)*i 



■I ' 



377 : FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOMt 

EM230B.EM26.0 

I L I 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM230B,EM227B,0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM233B,EM4B.O 

IDFPS -(R); 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES OOM 
EM233B,En2B,0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM233B,ER227B,0 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DMM 

EM236B,ER4B,0 
IDFPS a(R}>! 
' L ' 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM236B.EM2B,0 

' L ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
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SEQUENCE 



9308 061372 

9309 06U00 

9310 06U02 

9311 06U04 

9312 06U12 

9313 06H25 

9314 061427 

9315 061430 

9316 061436 

9317 061440 

9318 061442 

9319 061450 

9320 061452 

9321 061454 

9322 061462 

9323 061474 

9324 061476 

9325 061500 

9326 061506 

9327 061524 

9328 061526 

9329 061536 

9330 061544 

9331 061557 

9332 061561 

9333 061562 

9334 061570 

9335 061572 

9536 061574 

9337 061602 

9338 061615 

9339 061617 

9340 061620 
9341 

9342 061626 

9343 061642 

9344 061644 

9345 061646 
9346 

9347 061654 

9348 061672 

9349 061710 

9350 061712 

9351 061716 

9352 061720 



061342 
114 
377 

061412 
104 
114 
377 

061412 
114 
377 

061412 
114 
377 

061462 
104 
114 
377 

061462 
120 
376 

000246 
061544 
114 
114 
377 

061462 
114 
377 

061602 
104 
114 
377 

061602 
061506 
114 
114 
377 

061602 
061506 
114 
114 
377 

061172 
114 
377 



061172 
000 



052531 
106 
000 



052436 
000 



061172 
000 



052531 
106 
000 



052436 
103 



000252 
061626 
104 
000 



061172 
000 



052531 
106 
000 



052436 

104 
000 



061172 000000 



104 
104 



000000 
000 



.EVEN 

000000 .WORD 
En241: .ASCIZ 
.BVTE 
.EVEN 

000000 .WORD 
120 En241B: .ASCIZ 
En242: .ASCIZ 
• BYTE 
.EVEN 

000000 .WORD 
EM243: .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
EM244: .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
120 EM244B: .ASCIZ 
EM245: .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
040 En246: .ASCIZ 
.BYTE 
.EVEN 

000254 .WORD 
061654 .WORD 
106 En246B: .ASCIZ 
EM247: .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
E«250: .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
120 En250B: .ASCIZ 
EM251; .ASCIZ 
.BYTE 
.EVEN 

000000 .WORD 
E«252=E«246 
106 EM252B: .ASCIZ 
E«253: .ASCIZ 
.BYTE 
.EVEN 
.WORD 
E«254=E«246 
103 EM254B: .ASCIZ 
103 EM255: .ASCIZ 
.BYTE 
.EVEN 
.WORD 
EM256: .ASCIZ 
.BYTE 



EM2366,En227B,0 

377 ; FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



EM241B,EH4B,0 
.'DFPS a-(R)l 



377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

E«241B,EH2B.O 

' L ' 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM241B.EM2276.0 

377 .FLAGS 'ERTYPE' TO PfdNT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM244B.EM46.0 
!DFPS N(R)i 
I L I 

377 .-FLAGS "ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM244B.EM26.0 
.'PC BAD AFTER ! 

376 .FLAGS 'ERTYPE* TO PRINT ERR # SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 

246,252.254.0 
EM2466.EM252B,EM2546 
,'LDFPS N(R) ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM244B.EH2279.0 

I L I 

377 ; FLAGS 'ERTYPE' TO PRIN1 ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM250B,EM4B,0 
IDFPS aN(R)! 

I L ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM250B,EM2B.0 

.'LDFPS aN(R); 

:li 

377 .-flags 'ertype' to print addt'l asciz msgs. addresses 2 lines down 

EM250B,EM227B.0 

ILDCLO (R7)*,AI 
;LDCLD (R7)*,AI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM227B,0 

' L ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. .'DDRESSES 2 LINES DOWN 



CICFPCOO FPIIF FLTG PNT PRT C 
ERROR MESSAGES 



L 3 

MACRO HI 113 30-OCT-81 11:15 PAGE 117-1* 



SEQUENCE 



9353 061722 

9354 061730 

9355 061 7U 

9356 061 7A6 

9357 061750 

9358 061756 

9359 061760 

9360 061762 
9561 061770 

9362 0620U 

9363 062016 

936A 062020 

9365 062026 

9366 062030 

9367 062032 

9368 062036 



9369 
9370 
9371 
937^ 



062040 
062076 
062101 
0621 U 
062116 



9373 062120 
937A 062126 

9375 062U1 

9376 062U3 

9377 062H4 

9378 062154 

9379 062226 

9380 062230 

9381 062232 

9382 062242 

9383 062277 

9384 062301 

9385 062302 

9386 062306 

062310 

9387 062346 

9388 062353 

9389 062355 

9390 062356 

9391 062366 

9392 062440 

9393 062442 



061730 
104 
114 
377 

061730 
114 
377 

061770 
104 
114 
377 

061770 
114 
377 

062101 
377 

052653 
106 
104 
114 
377 

062126 
104 
114 
377 

062101 
200 
114 
377 

061 770 
200 
114 
377 

061770 
377 

052653 
130 
114 
377 

062126 
200 
114 
377 



052531 
103 
000 



052436 
000 



052552 
103 
000 



052436 
000 



052552 



062076 
114 
103 
000 



052436 
103 
000 



052552 
125 
000 



052552 
123 
000 



052552 



062346 
116 
000 



052552 
125 
000 



000000 

114 En2568: 
EH257: 

En260: 



000000 



000000 

111 EH260B: 
E«261 : 

En262: 



000000 



052662 
000 
111 



000000 
114 



062154 
123 



062242 
105 



IFL; 

En262B: 

EH263: 



En2638: 
En264: 



En264C: 
En265: 



E«265C; 
EH266: 



052662 

102 IXN8T: 
EM267: 



062366 

123 EH267C: 



E«270: 



9394 062444 062126 052552 062454 



• EVEN 

.WORD 

.ASCI2 

.ASCI2 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTF 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 



En256B,En4B.O 

IDCLD (R)*,a: 

I L ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

En256B.EM26,0 

' L I 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
E«2608.E«4D.O 

:dcif or ldclf (r),a; 

J L J 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



En260B.EM2B.O 

I L I 

377 .-FLAGS 'ERTYBE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



En262B,En4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT,IFL.PRST.N2,N7.N7.WENTT0,N3,N0«N0,INST0F.N3,N0.N1.0 

I FL I 

IDcIf (R).A! 
> ^ J 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

E«2638.En28.0 
!DCLF (R),A! 

377 .FLAGS 'LRTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM262B.EM4D,EM264C.O 

<CRLF>!USED CONSTANT 237 INSTEAD OF 217 ST 107.1 
!L ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM260B,EM4D.EM265C.O 

<CRLF>!SET SIGN BIT FAILED ST 146..' 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM2608.EH4D 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT,IXN6T,PRST.N3,N7,N2,WENTT0,N1,NS,N2,INST0F.N1,N1,N2,0 

:XNBT' 
1 L < 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM263B,EM4D.EM267C.O 

<CRLF>:USED CONSTANT 217 INSTEAD OF 237 ST 107.1 

! L I 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM263B,EM4D,EM270C,0 



nfPCDC FP1U FLTC PNT 
fWROR MESSAGES 

9395 062454 040 

9396 062472 114 
9597 062474 377 

9398 062476 062126 

9399 062506 040 

9400 062531 114 

9401 062533 377 

9402 062534 061770 

9403 062544 200 

9404 062601 114 

9405 062603 377 

9406 062604 062612 

9407 062612 104 

9408 062636 114 

9409 062640 377 

9410 062642 062612 

9411 062650 114 

9412 062652 377 

9413 062654 062720 

9414 062660 377 

062662 052653 

9415 062720 104 

9416 062733 114 

9417 062735 377 

9418 062736 062720 

9419 062746 200 

9420 063020 114 

9421 063022 377 

9422 063024 062720 

9423 063034 200 

9424 063065 114 

9425 063101 377 

9426 063102 052552 

9427 063110 200 

9428 063162 114 

9429 063164 377 

9430 063166 063174 

9431 063174 104 

9432 063207 114 

9433 063211 377 

9434 063212 063174 

9435 063220 114 

9436 063222 377 

94 37 063224 063174 

94 38 063232 114 



PRT C MACRO Nil 13 30 

122 117 EH270C: 

000 EM271 : 

052552 062506 

124 122 EH271C: 
000 EH272: 

052552 062544 

122 061 EM272C: 
000 EM273: 

052552 000000 

103 111 EM2738: 

000 EW274: 

052436 000000 

000 E«275: 

052552 

062076 052662 

103 111 EM2758: 
000 EM276: 

052552 062746 

125 123 EH276C: 
000 E«277: 

052552 063034 

123 105 E«277C: 

104 103 E«00: 

063110 OOCOOO 

125 123 EWOOC: 

000 EM301 : 

052552 000000 

105 130 EM3018; 
000 EW02: 

052436 000000 

000 EW03: 

052466 000000 

000 En304 : 



OCT-81 11:15 



n 3 

PAGE 117-15 



SEQUENCE 246 



.ASCiZ : ROUND ERROR.: 

.ASCIZ ;l! 

.BYTE 377 .-FLAGS 'ERTrPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM263B.EH4D.EN271C.0 

.ASCIZ ; TRUNCATION ERROR.. 

.ASCIZ ;l: 

.BYTE 377 ;FLAGS 'ERTyoE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM260B.EM4D.EM272C,0 

.ASCIZ <CRLF>!R14 NOT INCREMENTED ST 630.. 

.ASCIZ :l: 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADORESSCS 2 LINES DOWN 
.EVEN 

.WORD EM273B,EM4D,0 

.ASCIZ ;DCID or LDCLD (R),A! 

.ASCIZ :l! 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM2738.EM28.0 

.ASCIZ !L! 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM275B,EM4D 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD CReUT,IFL,PRST,N2,N7,N7,WENTT0,N3,N0,N0,INSTOF,N3,N0,Nl,0 

.ASCIZ IDCID (R),A: 

•ASCIZ ILi 

.BYTE 377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM275e,EM4D,EM276C,0 

.ASCIZ <CRLF>!USED CONSTANT 237 INSTEAD OF 217 ST 107.! 

•ASCIZ !l; 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

• EVEN 

.WORD EM275B,EM40.EM277C.O 

• ASCIZ <CRLF>!SET SIGN FAILED ST 146..' 
.ASCiZ .'LDCLD (R),A; 

•BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

• EVEN 

.WORD En4D,EM300C,0 

•ASCIZ <CRLF>!USED CONSTANT 217 INSTEAD OF 237 ST 107^ i 

•ASCIZ ;l: 

•BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

• EVEN 

•WORD EM301B,EM4D,0 

•ASCIZ IDEXP (R),A! 

•ASCIZ :l! 

•BYTE 377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

• EVEN 

.WORD EM301B,EM2B,0 

•ASCIZ :l: 

• BYTE 377 ,-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

• EVEN 

•WORD EM301B,EM36,0 

•ASCIZ .'l: 



kfpcdo fpiif fltg pnt prt c 



ERROR MESSAGES 






9439 


063234 


377 




9440 
9441 
9442 
9443 


065256 
063246 
063312 
063314 


n^^i 74 

200 
114 
377 


0SP5S? 
105 
000 


9444 
9445 
9446 
9447 


063316 
063326 
063406 
063410 


n^xi 74 
200 
114 
377 


0SP436 
050 
000 


9448 
9449 


063412 
063416 


063174 
177 


052436 


9450 
9451 
9452 


063420 
063456 
063514 
063516 


052653 
052653 
114 
377 


053724 
053724 
000 


9453 
9454 


063520 
063524 


063174 
377 


052552 


9455 
9456 


063526 
063564 
063566 


052653 
114 
377 


053724 
000 


9457 
9458 


063570 
063574 


063174 
177 


052436 


9459 
9460 
9461 


063576 
063634 
063640 
063642 


052653 
106 
114 
377 


063634 
111 
000 


9462 
9463 


063644 
063650 


0631 74 
377 


052552 


9464 
9465 


063652 
063710 
063712 


052653 
114 
377 


063634 
000 


9466 
9467 


063714 
063720 


0631 74 
177 


052552 


9468 
9469 


063722 
063760 
063762 


052653 
114 
377 


053724 
000 


9470 
9471 


063764 
063770 


063174 
177 


052552 


9472 
9473 


063772 
064030 
064032 


052653 
114 
177 


063634 

AAA 

000 


9474 


064034 


063174 


052552 



N 3 
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377 .-FLAGS 'ERTrPE* TO PRINT AOOT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



063246 

130 EH304C; 
EH305: 



063326 

102 EH305C: 
En306: 



052662 
052662 



052662 



052662 



052662 



052662 



EH307: 



EM310: 



052662 

125 IFIU: 
EM311: 



EI1312: 



EM313; 



EH3U; 



.erTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 

.ariE 

.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 

.erTE 

.EVEN 
.WORD 
.SrTF 
.EVEN 
.UORD 
.UORD 
.ASCIZ 

.srTE 

.EVEN 

.UORD 

.BYTE 

.EVEN 

.UORD 

.ASCIZ 

.SrTE 

.EVEN 

.UORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

•ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.'-.7D 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 



EM301B.EM4D.EH304C.0 

<CRLF>:EXCESS 200 calculation ST 624 BAD.: 
• j_ [ 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
E«301B.EH2B,EH305C.O 

<crlf>!(but enbt^ezbt ,xnbt) st 625 did not go to 304.: 

:l! 

377 .-flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

EM301B.En2B 

377 .FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LiNt- DOMN 

CRBUT,IEZBT,PRST.N5.N4.N4,WENTTO,N5.N0,N4.INSTOF.N7,N0,N4,OR 
CR8UT.IEZBT.PRST.N7,N0.N4«WENTT0,N2,N6,N4.INST0F.N0.N6.N4.0 

377 .-FLAGS 'ERIYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM301B.EM4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CR8Ur,IEZBT.PRST.N7,N0,N4.UENTTO.N0.N6.N4.INSTOF.N2,N6.N4.0 

I L ' 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM301B.EM2B 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
:R8UT.IFIU,PRST.N2,N6.N4,WENTT0,N1.N1,N5.INST0F,N1,NS,N5,0 

!Fiu: 

I L I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM301B.EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



CR8UT.IFIU.PRST.N2,N6.N4,WENTT0.N1.N5.N5.INST0F,N1,N1.N5.0 

IL 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



E«3018,EH4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT.IEZBT.PRST.N5,N4.N4.WENTT0,N7.N0.N4.INST0F,NS.N0.N4.0 

!«■! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM301B.EH4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT.IFIU.PRST.N5.NO,N4,WENTTO,N1.N5,N5,INSTOF,N1.N1,N5,0 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM3018.EM4D 



CKFPCDO FPllF FLT6 PNT PRT C 



ERROR MESSAGES 








9475 064040 


377 






064042 

9476 064100 

9477 064102 


052653 
114 

lit 

377 


054626 
000 

WW 


052662 


9478 0^104 

9479 064110 


065174 
377 


052552 




064112 

9480 0^4150 

9481 064152 


052653 
114 

lit 

377 


054626 

000 


052662 


948? 0641 54 
9483 064160 


063174 
377 


052552 




064162 

9484 064220 

9485 064222 


052653 
114 

lit 

377 


054626 
000 

www 


052662 


9486 064??4 

9487 064230 


063174 

W-' 1 r t 

377 


052552 




064232 

9488 064270 

9489 064272 


052653 
114 

1 1 t 

377 


000 

www 


052662 


9490 064274 

9491 064300 


063174 
377 


052552 




064302 

9492 064340 

9493 064342 


052653 
114 

1 1 t 

377 


054626 
000 

www 


052662 


9494 064344 

9495 064350 


063174 

1 f t 

377 


052552 

W^C J 




064352 

9496 064410 

9497 064412 


052653 
123 
377 


054626 
000 

www 


052662 


9498 064414 

9499 064422 

9500 064446 

9501 064450 


064422 
124 
123 

1 b ^ 

377 


052552 
103 
000 

www 


000000 
104 


9502 064452 

9503 064460 

9504 064462 


064422 
123 
377 


052436 
000 

www 


000000 


9505 064464 

9506 064472 

9507 064474 


064422 
123 
377 


052466 
000 

www 


000000 


9508 064476 

9509 064506 

9510 064521 


064506 
124 
200 


052436 
103 
103 


064521 
104 
114 
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377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



EM315: 



EH316: 



EM317: 



EM320: 



EM321 ; 



EM322: 



EM323: 



EM324: 



EM325: 



.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 



CRBUT,IFIV,PRST,N1 ,N0,N4,WENTT0,N1 ,N1 .N6,INST0F ,N1 ,N3,N6,0 

:l! 

377 .flags 'ertype* to print addt'l asciz msgs. addresses 

EM301B.EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 

CRBUT.IFIV.PRST.N1.NO.N4,WENTTO.N1.N3.N6,INSTOF,N1,N1.N6.0 

I L I 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 
EM301B,En4D 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 

CRBUT.IF IV.PRST.Nl ,N4.N4,WENTT0.Nl ,N1 ,N6.INST0F ,N1 ,N3.N6.0 

I L I 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

2 LINES DOWN 



2 LINES DOWN 
2 LINES DOWN 

2 LINES DOWN 
2 LINES DOWN 



EM301B.EM4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 



CRBUT,IFIV,PRST,N1.N4,N4,WENTT0.N1,N3,N6.INST0F.N1.N1,N6.0 

I L I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

2 LINES DOWN 



EM301B.EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 



CRBUT,IFIV,PRST,N3.N4.N4,WENTT0.N1,N1,N6.INST0F,N1.N3.N6.0 

I L ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 



EM301B.EP14D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 



2 LINES DOWN 
2 LINES DOWN 



CRBUT,IFIV,PRST.N3,N4,N4.WENTT0,N1.N3,N6,INST0F,N1,N1,N6,0 

I S ' 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM322B,E«4D,0 

ITCDI OR STCDL (R),A! 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

2 LINES DOWN 
2 LINES DOWN 



En322B.EM2B,0 

I S ' 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 

EF1i22B.EPl3B,0 

I S I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 



EH325B.EB2B,E«325C.O 
ITCDL (R).A! 

<CRLF>i CLEAR FLAG ST 774 FAILED. OR! 



CKFPCDO FPllF FLTG PNT PRT 
ERROR MESSAGES 



MACRO Ml 113 30-0Cr-81 



C 4 

11:15 PAGE 117-18 



SEQUENCE 2<i9 



9511 064557 
064560 

9512 

9513 064616 

9514 064620 

9515 064622 

9516 064626 

064630 

9517 064666 

9518 0646^0 

9519 064672 

9520 064676 

064700 

9521 064736 

9522 064742 

9523 064744 

9524 064746 
95?5 064752 

064754 

9526 065012 

9527 065014 

9528 065016 

9529 065026 

9530 065041 
9531 

9532 065110 

9533 065112 

9534 065114 

9535 065124 

9536 065173 

9537 065175 

9538 065176 

9539 065202 

065204 

9540 065242 

9541 065244 

9542 065246 

9543 065260 

9544 065277 

9545 065301 

9546 065302 

9547 065306 



377 

052653 054764 
064472 



123 
377 



000 



064506 052552 
377 

052653 054230 
123 000 
377 

064506 052436 
377 



052653 
106 
123 
377 

064506 
377 

052653 
123 
377 

065026 
124 
200 

064446 
123 
377 

065026 
200 
123 
377 

065026 
377 

052653 
123 
377 

065026 
200 
123 
377 

064506 
377 



064736 
111 
000 



052436 



064736 
000 



052552 
103 
125 



000 



052436 
125 
000 



052552 



054230 
000 



052436 
123 
000 



052552 



052662 



052662 



052662 
103 



052662 



065041 
104 
123 



065124 
123 



052662 



065260 
105 



.BYTE 
.EVEN 
.WORD 
EM326=EH325 
EM327: .ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.WORD 
EM330: .ASCIZ 
.BYTE 
.EVEN 
.WORD 
.BYTE 
.EVEN 
.yORD 
IFIC: .ASCJZ 
EM331: .ASCIZ 
.BYTE 
.EVEN 
.yORD 
.BYTE 
.EVEN 
.yORD 
EM332: .ASCIZ 
.BYTE 
.EVEN 
.yORD 
EM3328: .ASCIZ 
EM332C; .ASCIZ 
EM333=E«323 
EM334; .ASCIZ 
.BYTE 
.EVEN 
.yORD 
EM334C: .ASCIZ 
EM335: .ASCIZ 
.BYTE 
.EVEN 
.yORD 
.BYTE 
.EVEN 
.yORD 
EM336: .ASCIZ 
.BYTE 
.EVEN 
.yORD 
EH336C: .ASCIZ 



EM337: 



065310 052653 065346 052662 



.ASCIZ 
.BYTE 
.EVEN' 
.WORD 
.BYTE 
.EVEN 
.WORD 



377 ; FLAGS 'ER^YPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CRSUTJFLAG,PRST,N6,N6,N2,yENTT0,N3.N6,N5jNSTCF ,N3,N6,N1 ,0 

I S ! 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM325B.EM4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT.IENBT,PRST,N6,N3,N2.yENTTO.N4,N7,N3,INSTOF.N0.N7,N3.0 

' S I 

377 ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOyN 
EM325B,EH2B 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT,IFIC,PRST,N0,N0,N4,yENTTO,N3,N0,N5,INSTOr,N3,Nl,N5,0 

IFIC! 
I S ' 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOyN 
EN325b,EM2B 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT.IFIC,PRST.N0,N0,N4,yENTTO,N3,Nl,N5.INSTOF,N3,N0,N5,0 

I S I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM332B,EH4D,EM332C.O 
:tcdi (R),A1 

<CRLF>IUSED CONSTANT 37 INSTEAD OF 17 ST 66.! 

'•SI 

377 jFLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM332B,EM2B,EM334C,0 

<CRLF>!USED CONSTANT 37 INSTEAD OF 17 ST 66.! 

377 ;FLA6S 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM332B,EM4D 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT,IENBT,PRST,N6,N3,N2,WENTTO,N0,N7,N3,INSTOF,N4.N7,N3,0 

' S ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



EM332B,EM2B,EM336C,EM4D,0 
<CRLF>!SET FN ST 4731 



' S ' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM325B,EM4D 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCiZ MSGS, ADDRESSES 2 LINES DOWN 
CRBUT , I COUT ,PRST .N2 ,N7 ,N5 , WENTT0,N0,N7,N4 . INSTOF .N2 ,N7 .N4 . 0 



D 4 
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SEQUENCE 250 



ERROR MESSAGES 






9549 
9550 


UO J J*»0 

065353 
065355 


103 
123 
377 


117 
000 


yjj 1 

9552 


UO J J JO 

065362 


064506 
577 


052552 


9553 
9554 


065422 
065424 


052653 
123 
377 


065346 
000 


9556 


V/OJ*»tO 

065432 


064506 
177 


052436 


9557 
9558 


065472 
065474 


052653 
123 
377 


053724 
000 


9560 


065502 


064506 
377 


052552 


9561 
9562 


065542 
065544 


052653 
123 
377 


065346 
000 


9563 


065546 
0655S? 


064506 
377 


052552 


T JO J 

9566 
9567 


065554 

065617 
065621 


052653 
116 
123 
377 


065612 
102 
000 


9568 


065622 
0AS6?6 

vw JUCw 


064506 
577 


052552 


OS 70 
9571 
9572 


065630 

1/u.JQww 

065724 
065726 


052653 
052653 
123 
377 


065346 
065612 
000 


wJ f J 

9574 


OAS 7^0 
065734 


065026 
377 


052552 


9575 


065736 
065774 


052653 
123 
377 


062076 
124 


9S77 
9578 
9579 
9580 


066012 
066020 
066073 
066075 


052552 
200 
123 
577 


066020 
132 
000 


9581 
9582 
9583 
9584 


066076 
066104 
066117 
066121 


066104 
124 
123 
577 


052552 
105 
000 



125 ICOUT: 
En340: 



052662 



052662 



052662 



052662 
052662 



EM341 



EM342: 



EM343: 



052662 

111 IN8IT: 
En344: 



EM345: 



052662 

103 EM346: 



000000 

105 EM346C; 
EM347; 



000000 

130 EM3478: 
EM350: 



.ASCI2 

.ASCJZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.UORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.WORD 

.ASCIZ 

-BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCJZ 

•BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 



:cout: 

I S ! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM325B.EM4D 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT, ICOUT, PRST,N2.N7,N5,WENTT0,N2,N7,N4JNST0F,N0,N7.N4,0 

I S I 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM325B.EM2B 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CR6UT.IEZBT,PRST,N3.N7.N7,WENTTO,N6,N3,N3.INSTOF,N4,N3.N3.0 

I S ' 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM3256,EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT , I COUr .PRST ,N3 ,N6,N0, WENTT0,N6 ,N5 ,N4 , JNSTOF ,N4 ,N5 ,N4 ,0 

!S! 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM325B,EM4D 

377 : flags 'ertype' to print addt'l asciz msgs, addresses 2 lines down 

crbut, in6it,prst,n6,n5,n4,wentt0,n5,n3,n1,inst0f,n4,n3,n1.0 

:nbit! 

I S i' 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
En325e,EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT, ICOUT,PRST,N3,N6,N0,WENTTO,N4,N5,N4,INSTOF,N6,N5,N4, OR 
CRBUT, INBIT,PRST,N6,N5,N4,WENTT0,N4,N3,N1,INST0F,NS,N3,N1,0 

I S ! 

377 ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCJZ MSGS, ADDRESSES 2 LINES DOWN 
E«332B,EM4D 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT. IFL,PRST,N6,N3.N3,WENTT0,N6,N5,N5,INST0F,N6,N5,N4.0 
ISTCFL (R).A! 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM4D,EM346C,0 

<CRLF>iZERO LOW ORDER PART OF XII FAILED ST 773.! 



IS' 



577 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM347B,EM4D,0 
!TEXP A,(R)! 
'S ' 

377 ;FLA6S 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



CKfPCOO FPIIF FLTG PNT PRT C 
ERROR MESSAGES 



E A 
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SEQUENCE 251 



9585 
9586 
9587 
9588 


066122 
066130 
066153 
066224 


066104 
115 
127 
377 


052436 
117 
122 


000000 
122 
111 


EH351 : 


9589 
9590 
9591 


066226 
066232 
066234 


052552 
123 
377 


000000 
000 




EW52: 


9592 
9593 


066236 
066242 


066104 
377 


052436 






9594 
9595 


066244 
066302 
066304 


052653 
123 
377 


054230 
000 


052662 


EM353: 


9596 
9597 


066306 
066312 


066104 
377 


052436 






9598 
9599 


066314 
066352 
066354 


052653 
123 
377 


053724 
000 


052662 


En354: 


9600 
9601 


066356 
06^^'"? 


^661 04 
377 


052436 






9602 
9603 


066364 
066422 
066424 


052653 
123 
377 


053724 
000 


052662 


EM355: 


9604 
9605 


066426 
066432 


066104 
377 


052436 






9606 
%07 


066434 
066472 
066521 


052653 
123 
377 


054230 

4 

124 


052662 
123 


En3S6: 


9608 
9609 
9610 
9611 


066522 
066526 
066576 
066625 


066526 
101 
123 
377 


000000 
106 
124 


124 

4 ^9 

123 


EH356e 
EW357: 


9612 
%13 
9614 
9615 


066626 
066632 
066675 
066715 


066526 
117 
123 
377 


000000 

4 4^ 

116 
105 


4 4 i 

114 
124 


EH360 : 


9616 
9617 
9618 


066716 
066722 
066733 


052552 
123 
377 


000000 
124 


123 


En361 : 


9619 
9620 
9621 
9622 
9623 


066734 
066740 
067006 
067050 
067116 


052436 
116 
111 
104 
106 


000000 
117 
115 
111 
120 


116 
120 
106 
120 


EH362: 

EM363: 
En364: 



.EVEN 

.WORD 

.ASCII 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.UORD 

.BYTE 

.EVEN 

.yORO 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCII 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCIZ 

.BYTE 

.EVEN 

.WORD 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCII 



E«347B,E«2B,0 

I MORE THAN ONE WORD .' 

I WRITTEN BY STEXP A,(R). !<CRLF>IZERO FDFL ST 347! 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
En4D,0 

377 ;FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES D0W*4 
EH347B,EH2B 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CRBUT , lENBT ,PRST,N3,N7,N6,WENTTO,N0,N7.N1 , INSTOF .N4 ,N7,Nl .0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDR?SSfcS 2 LINES DOWN 

EM347B,E«2B 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
CRBUT, IEZBT.PRST,N0,N7,N1.WENTT0.N0.N7.N2. INSTOF, N2.N7.NZ.0 

iSi 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM347B.EM2B 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT. IEZBT.PRST,NO.N7,N1.WENTTO,N2,N7,N2. INSTOF .N0.N7.N2 0 
I S ' 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
En347B,EM28 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

CRBUT. IENBT.PRST,N3.N7,N6.WENTT0.N4.N7,N1, INSTOF ,N0,N7.N1,0 
iSTST (R) GOT BAD FEC.i<CRLF> 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM356B.0 

.'AFTER EXECUTING AN ILLEGAL FPP OP CODE.! 
ISTST (R) GOT BAD FEA.!<CRLF> 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM3568.0 

.'ONLY ONE WORD WRITTEN BY STST (R). I 
!SET FDFL ST 636! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM4D,0 

I jyjT (R) I 

377 ,-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
EM2B.0 

! NON-RESIDENT MEMORY MANAGEMENT TRAP - ! 
.'IMPROPER D-SPACE ACCESS ATTEMPTED! 
{DIFFERENCE BETWEEN SRI AND CALCULATED! 
!FPP INSTRUCTION FAILED TO ABORT, NOT ! 
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ERROR MESSAGES 












%24 


067163 




1 1 z. 

1 1 H 


1 1 A 

1 1 H 


FM^6S ■ 


ASri7 


9625 


067216 




117 


104 

1 V/H 


• ^ J l» 1 ^ 


9626 


067301 


lUO 


190 


i?n 

1 CM 


En366: 


ASCI 7 


9627 


067364 


107 


ins 


1 1 A 

1 1 D 


FM^67- 


ASCI7 


%28 


067447 


IDA 
1 uo 


i?n 


1?0 

1 CW 


Fm170' 


ASCI7 


9629 


067503 


1 CJ 


1 Pi 

1 cH 


10S 

1 VJ 


FM^71 ■ 

cnjf 1 • 


ASCII 


9630 


067565 


in 


OA 7 


OAO 

wOV 


FM^7?=0 


ASCI 7 


9631 


(S(\f\f\(\f\ 

uuuuuu 








9632 




uuuuuu 






PM^7^r0 




9633 










FM'^74=0 




963A 




nnoftflo 






FM37S=0 




9635 




UUvvUU 










9636 




nnnnhn 










9637 










E«400=0 


ASCJ7 


9638 


067633 


1 CJ 


onn 

www 




FM401 • 


9639 


067635 


jf f 








BYTE 












FVEN 


9640 


067636 




0SPST1 


000000 

WvvvWv 


En401B: 


UOPD 


9641 


067644 


I cH 


10A 
1 uo 


1?0 


ASCI 2 


9642 


067655 


1 Cj 


000 
www 






ASC17 


9643 


0676S7 










BYTE 














FVFM 

• C 1fC>« 


9644 


067660 


\JQf OHH 


os>>ss? 


000000 
www 


FM403 ■ 


UORD 


9645 


067666 


111 


nno 

wwv 




ASCIZ 


9646 


067670 


X77 








BYTF 














FVFN 


9647 


067672 


(\f\77L(\ 

UOf r HO 


070005 


06071 1 

WV 1 1 




WORD 


9648 


067700 


\lJC\iJJ 


UOf f JO 






UORD 


9649 


067736 




1?? 


067 

WW' 


IGR7FL • 


ASCIZ 


9650 


067746 


117 

1 1 r 


IP? 


10S 

1 V J 




ASCI7 


9651 


070005 


1 CH 


1 vO 


lev 


E«403C: 


ASCI7 

9 VAC 


9652 


070016 


1?^ 
1 Cj 


vVv 




EM404 : 


ASCIZ 


9653 


070020 


\77 

Jf f 








BYTE 
















9654 


070022 


vQf W"tH 


06117? 


000000 
www 


En405- 


UORD 


9655 


070030 


1 C J 


000 

WW 




ASCIZ 


9656 


070032 


"177 
jf f 








BYTE 

*o lit 














9657 


070034 








FM406 ■ 


UORD 


9658 


070044 


1?^ 


000 




ASCIZ 


9659 


070046 


^77 








BYTE 














FVFN 

• C » tf» 


9660 


070050 






05P55? 


FM407 • 


UORD 


9661 


070060 


IIS 
1 1 J 


000 
vvv 




ASCI 7 


9662 


070062 


^77 

Jit 








BYTE 

• O fib 














EVEN 

• t V t ' « 


9663 


070064 


UOf t HO 


fl7000S 


05P756 




UORD 


9664 


070072 


vjcojj 




05266? 




UORD 


9665 


070130 


1P^ 


000 

vvV 




FM4 1 0 ■ 


ASC17 


9666 


070132 


V7 








BYTE 

■ O f • t 












EVEN 


9667 


070134 




0SP7SA 

\J JC f J\J 


061 1 7? 




UORD 


9668 


070144 


123 


000 




En411: 


.ASCIZ 


9669 


070146 


377 








.BYTE 














• EVEN 


9670 


070150 


070156 


052531 


000000 




.WORD 


9671 


070156 


124 


106 


120 


En411B: 


.ASCIZ 



F 4 
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SEQUENCE 252 



lALLOUNG EXAMINATION OF SRI i 

inODE 0 INSTRUCTION ABORTED WHkN IT SHOULD NOT HAVE! 
iFPP ACCUnULATOR WAS CHANGED IN THE EXPECTED ABORT.! 
'GENERAL REGISTER WAS CHANGED IN THE EXPECTED ABORT: 
!FPP UNABLE TO RESTORE AN AC! 

!STEXP AUTO INCREMENTED/DECREMENTED RO INCORRECTLY! <CRLF> 
!F<I7095 ECO * 10 MIGHT NOT BE INSTALLED! 



' S ' 

377 :FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

En401B,En4S,0 

!TfPS (R)! 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L \SCIZ MSGS, ADDRESSES 2 LINES DOWN 
En401B«En4D,0 

id I 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

EM403B,En403C. PERIOD ^ , ^ 

CRBUT,IGR7FL.PRST,N3.N5.N7.WENTT0,N4.N1,N6.INST0F.N4.N1 .N7.0 
1GR7,-FL! 

!0RE THAN ONE UORD WRITTEN BY S! 
!TfPS (R)! 
i S ! 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EM4016,EN227B,0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
E«403C.En78.E«4B.O 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM403C,EH7B.E«4D,0 
'II' 

377 .FLAGS 'ERTYPE • TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EH403B,EM403C.E«7B , , , « 

CR8UT.IGR7FL.PRST.N3,N5.N7.WENTT0.N4.N1.N6.INST0F.N4,N1 .N7.0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM403C.EM7B.EM227B.0 

is: 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM411B,EM46.0 
!TFPS -(R)! 



CICFPCOO FPIIF FLTG PNT 



ERROR MESSAGES 




9673 


rt7Ai 7A 

070172 


123 
377 


9674 
9675 

VOf 0 


0701 74 
070202 


070156 
115 
377 


9677 
9678 

9680 


070206 
070214 

070254 


067746 
052653 
123 
377 


9681 
9682 

tOOj 


070256 
070264 


070156 
123 
377 


9684 
9685 

9687 


070270 
070276 

070313 


070276 
124 
123 
377 


9688 
9689 


070314 
070322 


070276 
123 
377 


9691 
9692 

9694 


070326 
070334 

070370 


070276 
040 
123 
377 


9695 
9696 

0A07 

TOT' 


070372 
070400 


070276 
123 
377 


9698 
9699 

Q7nA 

9701 


070404 
070412 

070427 


070412 
124 
123 
377 


9702 
9704 


070430 
070440 


070412 
123 
377 


9705 
9707 


070442 
070452 


070412 
123 
377 


9708 
9709 

071 


070454 
070462 


070412 
123 
377 


9711 
9712 
9713 
9714 


070466 
070474 
070506 
070510 


070474 
124 
123 
377 


9715 


070512 


070474 



PRT C MACRO HI 113 30 

000 EM412: 

052552 000000 

000 EM413: 

070156 060711 
067736 052662 

000 EM414: 

061172 000000 

000 En4l5: 

052531 000000 

106 120 En415B: 
000 En416: 

052552 000000 

000 EH417: 

070334 000000 

104 111 EH4178: 
000 En420: 

061172 000000 

000 En421 : 

052531 000000 

106 120 En421B: 
000 En422: 

052552 000000 

000 En423: 

070334 000000 

000 EM424: 

061172 000000 

000 En425: 

052531 000000 

106 120 En425B: 
000 EM426: 

052552 000000 



G 4 

OCT-81 11:15 PAGE 117-22 



SEQUENCE 253 



ASCI2 IS' 

.'byte 377 .FLAGS 'ERTYPE* TO PRINT AODT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM411B.En4D,0 

.ASCIZ 

.BYTE 377 :FLA6S 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD En403B,EM4l1B. PERIOD 

.WORD CR8UT.IGR7FL,PRST.N3.N5,N7.UENTT0.N4.N1,N6.INST0F,N4.N1.N7,0 

.ASCIZ ;s! 

.BYTE 377 .FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM411B.EH227B.0 

.ASCIZ !S! 

.BYTE 377 .FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.UORD En415B,EM4B,0 

•ASCIZ ITFPS a(R)*! 

.ASCIZ ;s! 

.BYTE 377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM415B.EM4D.0 

.ASCIZ :si 

.BYTE 377 .-FLAGS 'ERIYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM415B.EM417B,0 

.ASCIZ I DID NOT DEFER THE WRITE..' 

.ASCIZ is: 

.BYTE 377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM415B,EM227B,0 

.ASCIZ .'s; 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM421B.EM46.0 

.ASCIZ ITFPS a-(R)i 

.ASCIZ !s; 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM431B,EM4D.0 

ASCIZ iSI 

!bYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM4216,EM417B.O 

.ASCIZ !S! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L A^CIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM4216.EM227B,0 

.ASCIZ !S! 

.BYTE 377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM425B.EM4B,0 

.ASCIZ iTFPS N(R)I 

.ASCIZ ISI 

.BYTE 377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
.EVEN 

.WORD EM425B.EM4D.0 



H 4 

CICFPCDO FP11F FLTG PNT PRT C MACRO M1113 30-0CT-81 11:15 PAGE 117-23 



SEOUENfE 25^ 



tWmjR ncSSAGtS 










9716 070520 


115 

777 


000 




EM427: 


9718 070524 

9719 070532 


067746 
377 


070474 


060711 




070534 

9720 070572 

9721 070574 


052653 
123 
177 


067736 
000 


052662 


En430: 


9722 070576 

9723 070604 

9724 070623 


0701,71, 
120 
377 


061172 
103 


000000 
040 


EM431 : 


9725 070624 

9726 070632 

9727 070634 


070474 
123 
377 


057026 
000 


000000 


En432: 


9729 070644 

9730 070657 

9731 070661 


124 
123 
377 


106 
000 


120 


En432B: 
EM433: 


9732 070662 

9733 070670 

9734 070672 


070644 
115 
177 


052552 
000 


000000 


En434: 


rt7nA7Z, 
Tfj3 UfUOf*» 

9736 070702 

9737 070740 

9738 070742 


052653 
123 
377 


067736 
000 


rtAfl71 1 
UOUr 1 1 

052662 


EM435: 


9739 070744 

9740 070752 

9741 070771 


070644 
120 
377 


061172 
103 


000000 
040 


EM436: 


9742 070772 

9743 071000 

9744 071015 


070644 
123 
177 


057026 
124 


000000 
103 


EM437; 


9745 071016 

9746 071022 

9747 071037 


052531 
123 
377 


000000 
124 


103 


En440: 


9748 071040 

9749 071044 

9750 071060 


052531 
125 
376 


000000 
116 


105 


En441: 


Q7^1 n7inA3 

9752 071072 

9753 071100 

9754 071105 


071100 
106 
377 


t\(\(\LL 3 

071147 
120 


071147 
120 


En441B: 


9755 071106 

9756 071112 

9757 071123 


071112 
124 
376 


000000 
122 


101 


TRAPTO: 



.ASCIZ 
.BYTE 

• EVEN 
.WORD 
.BYTE 

• EVEN 
.WORD 
•ASCIZ 
.BYTi 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 



377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
E«403B,En425B, PERIOD 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

CR8UT.IGR7FL.PRST,N3,N5,N7,WENTT0,N4,N1.N6.INST0F.N4,N1.N7,0 

I S I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

EM425B,En227B,0 
IPC BAD AFTER SI 

377 ;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

E«425B.Em60B.O 

I S I 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

En432B,En4B.O 
ITFPS aN(R)! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
En432B.En4D,0 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
En403B.En432B, PERIOD 

CRSUT.IGR7FL.PRST.N3.N5,N7.WENTT0.N4,N1,N6,INST0F,N4.N1.N7.0 

I S I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

E«432B.E«227B.O 
IPC BAD AFTER SI 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 

E«432B,Eni60B.O 
ISTCDL A,(R)*I 

377 .-FLAGS 'ERTYPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
En4B.O 

ISTCDL A,-(R)I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EWB.O 

I UNEXPECTED I 

376 .-FLAGS 'ERTYPE* TO PRINT ERR # SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 

441.442.443.0 
EM441B.En442B.EK442B 

I FPP I 

377 ' .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 

TRAPTO. 0 
I TRAP to I 

376 ;FLAGS 'ERTYPE' TO PRINT ERR # SPECIFIC ASCIZ MSGS. ADRS 3 LINES DOW 



CK^PCDO FPIIF FLTG PNT PRT C 
ERROR MESSAGES 



9758 071124 

9759 071134 

9760 071142 
9761 

9762 071147 

9763 071154 

9764 071156 

9765 071162 
9766 

9767 071165 

9768 071171 

9769 071175 



000441 
071142 
062 
071044 
103 
377 

071112 
064 

071044 
061 
116 
377 



000442 
071162 
064 

120 



000000 
056 



060 
105 



MACRO Ml 113 30-0CT-81 11:15 



I 4 
PAGE 117-24 



SEQUENCE 255 



000443 
071165 
064 

125 



000 

056 
107 



9770 071176 057346 052466 000000 



.WORD 
.WORD 
N244: .ASCIZ 
EM442=EM441 
En442B: .ASCIZ 
.8VTE 
.EVEN 
.WORD 
N04: .ASCIZ 
EM443=EM441 
NlO: .ASCIZ 
En444: .ASCIZ 

.am 

.EVEN 
.WORD 



441.442,443.0 

N244«N04,N16 

1244.! 



!CPU 
377 

TRAPT0,0 

14. ; 



; FLAGS "ERTVPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



110. 1 
'NEG ' 

377 .FLAGS 'ERTVPE* TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
EMI 76B.EM3B,0 



CKFPCDO FPllF FLT6 PNT PRT C 
DATA TABLE HEADERS 



J A 

HACRO mil3 30-0CT-81 11:15 PAGE 118 



SEQUENCE 236 



9771 










.SBTTL 


9772 071 20A 


040 


000 




DHl : 


.ASCIZ 


9773 071206 


377 








.BYTE 
.EVEN 


9774 071210 


071220 


071252 


071261 




.WORD 


9775 071220 


040 


124 


105 


DH16: 


.ASCIZ 


9776 071252 


105 


122 


122 


DH1 C : 


.ASCIZ 


9777 071261 


Oil 


106 


120 


DHID: 


.ASCIZ 


9778 071274 


040 


000 




DH2: 


.ASCIZ 


9779 071276 


377 








.BYTE 
.EVEN 


9780 071300 


071220 


071252 


071310 




.WORD 


9781 071310 


Oil 


107 


117 


DH2B: 


.ASCiZ 


9782 071340 


040 


000 




DH3: 


.ASCIZ 


9783 071342 


377 








.BYTE 
.EVEN 


9784 071344 


071220 


071252 


071354 




.WORD 


9785 071354 


Oil 


107 


117 


DH36: 


.ASCIZ 


9786 071404 


040 


000 




DH4: 


.ASCIZ 


9787 071406 


377 








.BYTE 
.EVEN 


9788 071410 


071220 


071252 


071420 




.WORD 


9789 071420 


Oil 


107 


117 


DH4B: 


.ASCIZ 


9790 071447 


040 


000 




DH5: 


.ASCIZ 


9791 071451 


377 








.BYTE 
.EVEN 


9792 071452 


071220 


071252 


000000 




.WORD 


9793 


071447 






DH6=DH5 


9794 


071404 






DH7=DH4 


9795 


071447 






DH10=DH5 


9796 


071404 






DH11 = 


DH4 


9797 


071447 






DH12=DH5 


9798 071460 


040 


040 


124 


DH13: 


.ASCIZ 


9799 


071460 






DH14= 


DH13 


9800 


071447 






DHl 5= 


DH5 


9801 071520 


040 


000 




DH16: 


.ASCIZ 


9802 071522 


377 








.BYTE 
.EVEN 


9803 071524 


071220 


071252 


071534 




.WORD 


9804 071534 


Oil 


107 


117 


DHi6e 


: .ASCIZ 


9805 


071460 






DH17=DH13 


9806 


071404 






DH20=DH4 


9807 


071447 






DH21 = 


DH5 


9808 


071447 






DH22-DH5 


9809 


071460 






DH23=DH13 


9810 


071404 






DH24= 


DH4 


9811 


071447 






DH25= 


DH5 


9812 


071460 






DH26=DH13 


9813 


071404 






DH27=DH4 


9814 


071447 






DH30=DH5 


9815 


071460 






DH31= 


DHl 3 


9816 


071404 






DH32=DH4 


9817 


071447 






DH33=DH5 


9818 


071460 






DH34= 


DH13 


9819 


071404 






DH35= 


DH4 


9820 


071447 






DH36=DHS 


9821 071563 


040 


000 




DH37: 


.ASCIZ 



DATA TABLE HEADERS 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
DH1B,DH1C,DH1D,0 

I TEST. 1<TAB> IPC OF CALL. <TAB> IPC OF I 
.'ERROR.: 

<TAB>!FPS.!<TA8>!FEC.i 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
DH1B,DH1C,DH2B,0 

<TA8>!G0T FPS. !<TAB>! EXPECTED FPS.! 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
CH1B,DH1C,DH3B,0 

<TAB>:60T fec.!<tab>;expected fec; 

■ I 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
DH1B,DH1C.DH4B,0 

<TAB>!G0T RO. I <TAB> I EXPECTED RO. ! 
I I 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 
DH1B,DH1C,0 



TEST.!<TAB>IPC OF CALL. !<TAB>!PC OF TRAP.! 



377 



.-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



DH1B,DH1C,DH16B,0 

<TAB>!GOT PC. I<TAB> I EXPECTED PC! 



CKFPCDO FP11F FLTG PNT PRT C MACRO M1113 
DATA TABLE HEADERS 



30-0CT-81 11:15 PAGE 118-1 



9822 071565 


jf 1 






RVTF 


^77 -FIAGS 'FRTVPF' TO PRINT ADDT* 






• c vcn 


DH18,DH1C,DH37B,0 

<TAfi>!GOT FPC .'<TAfl>.'FXPFCTED FPS ! 


ytSci Ooo 


n7i 


071 5S3 


071 S7A 

\i( 1 J » O 






nil 


107 


117 

1 1 r 


r\uX7R* AST 17 




n7i 






r)u40=DH'^7 




OA?/; n71A5/; 
70cO Ur 1 OcO 


UhU 


000 




nM4i • Asri7 


1 1 

577 'FLAGS 'ERTYPE' TO PRINT ADDT* 


OA77 n7lAXn 


X77 




RVTF 








FWFN 


DHlfi DH1C DH41B 0 

<TAB>!FPS !<TAB>!GOT FEC. EXPECTED FEC 






071 ?S? 
Ur 1 c JC 


071 A47 

Ur 1 OHc 






fli 1 


10A 
1 wD 


120 


DM41R- ASri? 


QR'XO 


071 






DM4?=DH17 




yOj 1 


c\7^ SAX 






nM4^=DH^7 
ynH j'~i/n J r 




QRX7 


n7i ^(>\ 

\JI 1 joj 






nH44=DH37 






071 SAX 

y f 1 JO J 










TO J*» 


071 SAX 

U r 1 JO J 










TO J J 


071 SAX 

U ' 1 ^O J 






DH47=DH37 




tOjO 


071 SAX 
Ur 1 JO J 










QRX7 

TO Jf 


071 SAX 

Ur 1 JOJ 










QR^R 

TOJO 


071 SA^ 

u r 1 JOJ 






DH52=DH37 




T03T 


Ur 1 OCO 






DHS3=DH41 




QR^n 

TOHV 


071 SAX 






DH54=DH37 




TOH 1 


071 






DH55=DH37 




QR^7 

TO*»C 


071 SA? 






DH56=DH37 




TOH J 


071 SAX 






DH57=DH37 




TOHH 


071 5A? 






DH60=DH37 




TOH J 


071 S6? 






DH61=DH37 




TOHU 


071 ?74 






DH62=DH2 




Q847 


071X40 






DH63=DH3 






071447 






DH64=DH5 




TOHT 


071274 






DH65=DH2 






071404 






DH66=DH4 




yo^ 1 


071274 






DH67sDH2 






071340 






DH70=DH3 




TO J J 


071274 






DH176=DH2 






124 


105 


123 


DHl 77: ASCIZ 


iTESTNO ERR PC CPUERR! 




071447 






DH71=DH5 




TOJO 


071274 






DH72=DH2 




TO J » 


071460 






DH107-DH13 




QASA 

TOJO 


071447 






DH73=DH5 




TO JT 


071404 






DH74=DH4 






0712/4 






DH75=DH2 




TOO 1 


071460 

W r 1 "tow 






DH76=DH107 




TOOC 


071447 






DH77=DH5 




TOO J 


071404 






DHl 00=DH4 




TwO"t 


071 274 






DH101=DK2 




TOO J 


071460 






DH102=DH107 




QAM 


071447 






DHl 03=DH5 




TOOr 


071404 






DHl04=DH4 




TOOO 


071274 






DH105sDH2 




TOOT 








DH106=DH107 




9870 


07UA7 






DH110=DH5 




9871 


071404 






DH111=DH4 




9872 


071274 






DH112=DH2 




9873 


071460 






0H113=DH107 




9874 


071447 






DH114=DH5 




9875 


071404 






DH115=DH4 




9876 


071274 






DH116=DH2 





SEQUENCE 257 



ADDRESSES 2 LINES DOWN 



nSGS, ADDRESSES 2 LINES DOWN 



CKFPCDO FPIIF FLTG PNT PRT C HACRO HM13 30-OCT-81 11:15 PAGE 'fl8-2 SEQUENCE 
OAT^ TABLE HEADERS 



Q877 


071460 


DH117=DH107 


TO' W 


071447 


DH120=DH5 


9879 


071404 


DH121=DH4 


9880 


071 ?74 


DhI 22sDH2 


9881 

TOO 1 


071460 


Dh123sDH107 


988? 

TOOC 


071447 


DH124=DH5 
DH125=DH4 


9881 

TOO J 


071404 


9884 

TOO"* 


071274 


DH126=DH2 


9885 


071460 


DH127=DH107 


9886 

TOOV 


071447 


DH130=DH5 


9887 

TOO » 


071274 


DH131=DH2 


9888 


071460 


DH132:DH107 


9889 


071447 


DH133=DH5 


9890 


071274 


DH134=DH2 


9891 


071447 


DH135=DH5 


9892 


071447 


DH136-0H5 


9893 


071274 


DH137=DH2 


9894 


071447 


DH140=:DH5 


9895 


071404 


DH141-DH4 


9896 


071274 


DH142=DH2 


9897 


071447 


DH143=0HS 


9898 


071404 


DH144=DH4 


9899 


071274 


DH145=DH2 


9900 


071447 


DH146=DH5 


9901 


071404 


DH147=DH4 


9902 


071274 


DH150=DH2 


9903 


071447 


DH151=DH5 


9904 


071404 


DH152=0H4 


9905 


071274 


DH153=DH2 


9906 


071447 


DH154=DH5 


9907 


071404 


DH155=DH4 


9908 


071274 


DH156=DH2 


9909 


071447 


0H157=0H5 


9910 


07U04 


DH160-DH4 


9911 


071274 


DH161=DH2 


9912 


071447 


DH162=DH5 


9913 


071274 


DH163=DH2 


9914 


071520 


DH164=DH16 


9915 


071563 


DH165=DH37 


9916 


071563 


DH166=DH37 


9917 


071563 


DH167=0H37 


9918 


071563 


DH170=0H37 


9919 


071563 


DH171=0H37 


9920 


071 563 


DH172=DH37 


9921 


071626 


DH173=0H41 


9?22 


071626 


DH174=DH41 


9923 


071626 


DH175=DH41 


9924 


071563 


DH200=0H37 


9925 


071563 


0H201 =DH37 


9926 


071563 


DH202=DH37 


9927 


071563 


DH203=0H37 


9928 


071563 


DH204=0H37 


9929 


071563 


0H205=DH37 


9930 


071563 


DH206=DH37 


9931 


071563 


DH207=OH37 


9932 


071563 


DH210=DH37 


9933 


071563 


DH2n=DH37 



CKFPCDO FPllF FLTG PNT PRT C 
DATA TABLE HEADERS 



9934 
9935 
9936 
9937 
9938 
9939 
99A0 
9941 
9942 
9943 
9944 
9945 
9946 

9947 071726 

9948 071730 



071563 
071563 
071 56i 
071520 
071447 
071404 
071274 
071520 
071447 
071404 
071274 
071404 
071274 
040 
377 



000 
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DH212=DH37 
0H213=DH37 
DH214=DH37 
DH215=DH16 
DH216=DH5 
DH217=DH4 
DH220=DH2 
DH221=DH16 
DH222=DH5 
DH223=DH4 
DH224=DH2 
DH225=DH4 
DH226=DN2 



M 4 

118-3 



SEQUENCE 259 



0H227: 



9949 071732 071220 071740 000000 



.Ascrz 

.BrTfc 
.EVEN 
.WORD 



377 



.FLAGS 'ERTVPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DQyN 



9950 071740 


124 


122 


101 DH227B: .ASC 


9951 


071 404 




DH230=DH4 


9952 


071274 




DH231=DH2 


9953 


071 726 




DH232=DH227 


9954 


071404 




DH233=DH4 


9955 


071274 




DH234=DH2 


9956 


071726 




DH235=DH227 


9957 


071404 




0H236=DH4 


9958 


071274 




0H237=DH2 


9959 


071726 




0H240=DH227 


9960 


071404 




DH241=DH4 


9961 


071274 




DH242=DH2 


9962 


071726 




DH243=0H227 


9963 


071404 




0H244=DH4 


9964 


071274 




0H245=DH2 


9965 


071520 




DH246=DH16 


9966 


071726 




0H247=DH227 


9967 


071404 




DH250=DH4 


9968 


071274 




DH251=DH2 


9969 


071520 




DH252=DH16 


9970 


071726 




0H253=DH227 


9971 


071520 




DH254=DH16 


9972 


071726 




DH255=DH227 


9973 


071404 




DH256=DH4 


9974 


071274 




DH257=DH2 


9975 


071563 




DH260=DH37 


9976 


071563 




0H261=DH37 


9977 


071563 




DH262=DH37 


9978 


071563 




DH263=DH37 


9979 


071563 




DH264=DH37 


9980 


071563 




DH265=0H37 


9981 


071563 




DH266=0H37 


9982 


071563 




0H267=DH37 


9983 


071563 




0H270=Dh37 


9984 


071563 




DH271=DH37 


9985 


071563 




DH272=DH37 


9986 


071563 




DH273=DH37 


9987 


071563 




DH274=DH37 


9988 


071563 




DH275=DH37 


9989 


071563 




DH276=DH37 



DH16,DH227B,0 
.'TRAP.! 



CKFPCDO FPIIF Fl^G phi PRT L 
DATA TABLE HEADERS 



9990 
9991 
9992 
9993 
999< 
9995 
9996 
9997 
9998 
V999 
10000 
10001 
10002 
10003 
1000A 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012 
10013 
100U 
10015 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
1002A 
10025 
10026 
10027 
10028 
10029 
10030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
10038 
10039 

10040 
10041 
10042 
10043 
10044 
10045 



071746 
071750 

071752 
071762 



072012 
072014 



071563 
071563 
071563 
071563 
071626 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071626 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071563 
071460 
071563 
071563 
071563 
071563 
071404 
040 
377 

071220 
Oil 
071460 
071274 
040 
377 



000 



071252 
107 



000 



MACRO Mil 13 30-OCT-81 11:15 



DH277=DH37 

DH300=DH37 

DH301=DH37 

DH302=0H37 

DH303=DH41 

DH304=DH37 

DH305=DH37 

DH306=DH37 

DH307=DH37 

Dh310=DHi7 

DH311=DH37 

DH312=DH37 

DH313=DH37 

DH3'i4=DH37 

DH315=DH37 

DH316=DH37 

DH317=DH37 

DH320=DH37 

DH321=DH37 

DH322=DH37 

DH323=DH37 

DH324=DH41 

DH325=DH37 

DH326=DH37 

DH327=DH37 

DH330=DH37 

DH331=DH37 

DH332=DH37 

DH333=DH37 

DH334=DH37 

DH335=DH37 

DH336=DH37 

DH337=DH37 

DH340=DH37 

DH341=DH37 

DH342=DH37 

DH343=DH37 

DH344=DH37 

DH345=DH37 

DH346=DH37 

DH347=DH37 

DH350=DH37 

DH35UDH13 

DH352=DH37 

DH353=DH37 

DH354=DH37 

DH355=DH37 

DH356=DH11 

DH357: .ASCIZ ! I 
.BYTE 377 
• EVEN 

071762 .WORD 
117 DH357B; .ASCIZ 
DH360=DH13 
DH361=DH2 

DH362: .ASCIZ .' I 
.BYTE 377 



N 4 

PAGE 118-4 



SEQUENCE 260 



;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



DH1B.DH1C.DH3578,0 
<TA8>:G0T FEA.:<TAB>!EXPECTED FEA.! 



.•FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



CKFPcoo ^p'>^f fltg pnt prt c 

DATA TABLE HEADERS 



B 5 

HACRO M1113 30-OCT-81 11:15 PAGE 118-5 



SEQUENCE 261 



10CK6 072016 
100^7 072026 

10048 072034 

10049 072036 

10050 072040 

10051 072050 

10052 072074 

10053 072076 

10054 072100 

10055 072106 

10056 072143 

10057 072145 

10058 072146 

10059 072154 

10060 072156 

10061 072160 

10062 072170 

10063 072206 

10064 072210 

10065 072212 

10066 072222 

10067 072253 

10068 072316 

10069 072356 
10070 

10071 
10072 
10073 
10074 
10075 
10076 
10077 
100/8 
10079 
10080 
10081 
10082 
10083 
10084 
10085 
10086 
10087 
10088 
10089 
10090 
10091 
10092 
10093 
10094 
10095 
10096 



071220 
Oil 
040 
377 

071220 
Oil 
040 
377 

071220 
111 
040 
377 

071220 
040 
377 

071220 
Oil 
040 
377 

071220 
Oil 
040 
040 
105 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
071404 
071274 
071460 
071726 
0/1404 
071274 
071460 
071726 
071404 
071274 
071460 
071726 
071404 
071274 
071460 
071726 
071404 
071274 
071460 
071726 



071252 
115 
000 



071252 
123 
000 



072106 
116 
000 



071252 
000 



071252 
101 
000 



071252 
122 
040 
040 
130 



072026 
115 



072050 
122 



000000 
123 



000000 



072170 
103 



072222 
105 
124 
124 
120 



DH3628: 
DH363: 



DH363B: 
DH364: 



DH364B: 
DH3t>5: 



DH366: 



DH3666: 
DH367: 



0H367B: 
DH370: 
DH371 ; 

0H372= 
DH373= 
DH374= 
DH375= 
DH376= 
DH377= 
DH400= 
0H401=I 
DH402=I 
0H403=1 
DH404= 
DH405=i 
DH406= 
DH407= 
DH410= 
DH411= 
DH412=i 
0H413=1 
DH414= 
DH415= 
DH416= 
DH417=I 
DH420= 
DH421= 
DH422= 
DH423= 
DH424= 



.EVEN 
.WORD 
.ASCI2 
.ASCI2 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.BYTE 
.EVEN 
.WORD 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 

0 
0 
0 
0 
0 
0 
0 

DH4 
DH2 
DH13 
DH227 
DH4 
DH2 
DH13 
DH227 
DH4 
DH2 
DH13 
DH227 
DH4 
DH2 
DH13 
DH227 
DH4 
DH2 
DH13 
0H227 



DH1B,DH1C.DH362B.0 
<TAB>:mRO! 



377 



.-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOWN 



DH1B.DH1C.DH363B.0 

<TAB> ! SRI ! <TAB> i CALCD I <TAB> ! EXPEc TED ! 



377 



.•FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 



DH16.DH3646.0 

INSTRUCTION FAILING TO ABORT,' 

I I 

377 ; FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
DHIB.DHIC.O 

I I 

377 .FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
DH1B,DH1C.DH366B.0 

<TAB>iAc » changed: 

I • 

377 .-FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS. ADDRESSES 2 LINES DOWN 
DH1B.DH1C.DH367B.0 

<TAB> ! REG # ! <TAB> I RECEI VED I <TAB> ! EXPECTED I 

TEST!<TAB>!PC OF CALL!<TAB>1AC #!<TAB>!PC OF ERROR! 
TEST!<TAB>!PC Of CALLI<TA8>!STEXP OP C0DE:<TAB> 
EXPCTD RECVED PC OF ERROR! 



CKFPCOO FPIIF FL^G PNT PRT 
DATA TABLE HEADERS 



10097 
10098 
10099 
10100 
10101 
10102 
10103 
10104 
10105 
10106 
10107 
10108 

10109 072412 

10110 072414 



10111 
10112 
10113 
10114 
10115 



072416 
072426 



071404 
071274 
071460 
071726 
071460 
071404 
071274 
071460 
071726 
071460 
071404 
071404 
040 
377 

071220 
Oil 
072143 
072143 
071340 



000 



071252 
106 



MACRO Ml 113 30-0CT-81 11:15 



DH425=DH4 
DH426=DH2 
0H427=DH13 
DH430=DH227 
DH431=DH13 
DH432=DH4 
0H433=0H2 
DH434::DH13 
0H435=DH227 
DH436=DH13 
DH437=DH4 
DH440=DH4 



C 5 
PAGE 118-6 



SEQUENCE 262 



072426 
105 



DH441 



DH441B 
DH442=DH365 
DH443-DH442 
DH444=DH3 



.ASCI2 
.BYTF 
.EVEN 
.WORD 
.ASCIZ 



377 



;FLAGS 'ERTYPE' TO PRINT ADDT'L ASCIZ MSGS, ADDRESSES 2 LINES DOM 



DH1B.DH1C,DH441B,0 
<TA8>:FEC.! 



CKFPCDO FPIIF FLTG PNT PRT C MACRO «ni3 
FORMAT SPECIFICATIONS FOR THE DATA TABLES 



30-OCT-81 11:15 



D 5 
PAGE 119 



SEQUENCE 263 



101 16 




10117 07?634 


004 


10118 072443 


004 


10119 


072443 


10120 


072443 


10121 072453 


004 

WW ~ 


10122 072465 

■ Vice V' c**u^ 


004 


10123 


072443 


10124 


072453 


10125 


072443 


10126 072471 


004 


10127 


072465 


10128 


072465 


10129 


072471 


10130 


072443 


10131 


072465 


10132 


072443 


10133 


072471 


10134 


072471 


10135 


072465 


10136 


072443 


10137 


072471 


10138 


072465 


10139 


072443 


10140 


072471 


10141 


072465 


10142 


072443 


10143 


072471 


10144 


072465 


10145 


072443 


10146 


072471 


10147 072503 


004 


10148 


072503 


10149 072524 


004 


10150 


072503 


10151 


072503 


10152 


072503 


10153 


072503 


10154 


072503 


10155 


072503 


10156 


072503 


10157 


072503 


10158 


072503 


10159 


072503 


10160 


072503 


10161 


072503 


10162 


072503 


10163 


072503 


10164 


072503 


10165 


072503 


10166 


072443 


10167 


072443 


10168 


072453 


10169 


072443 


10170 


072443 


10171 


072443 


10172 


072443 



000 
000 



000 
000 



000 



000 
000 



005 
005 



005 
005 



005 



005 
005 



.S8TTL 
.8VTE 
.BYTE 



.BYTE 
.BYTE 



DF1 : 
DF2: 
DF3=Df2 
DF4=0F2 
DF5: 
DF6: 
DF7=DF4 
DF10sDF5 
DF11=DF4 
DF12: 
DF13=DF6 
DF14=DF6 
DF15=DF12 
DF16=DF2 
DF17=DF6 
DF20=DF2 
DF21=DF12 
DF22=DF12 
DF23=DF6 
DF24=DF2 
l/F25=DF12 
DF26=DF6 
DF27=DF2 
0F30=DF12 
DF31=DF6 
DF32=DF2 
DF33=DF12 
DF34=DF6 
DF35=DF2 
DF36=DF12 
DF37: .BYTE 
DF40=DF37 
DF41: .BYTE 
DF42=DF37 
DF43=DF37 
0F44=DF37 
0F45=DF37 
0F46=DF37 
DF47=DF37 
DF50=DF37 
DF51=DF37 
DF52=DF37 
DF53=DF37 
DF54=DF37 
DF55=DF37 
DF56=DF37 
DF57=DF37 
DF60=DF37 
DF61=DF37 
DF62-DF2 
DF63=DF2 
DF64=DF5 
Df65=DF2 
DF66=DF2 
0F67=DF2 
0F70=0F2 



FORMAT SPECIFICATIONS 

4.0,5,0.5.0.0 

4,0,5.0.5.0.5.0 



4,0.5,0.5.5.2.5.5,2 
4,0.5.0 



FOR THE DATA TABLES 



BYTE 4,0.5.0,5,5,3.5.5.3 



4.0.5.0.5.0.5.0.5.5,3,5,5,3,5,5.3 
4,0.5.0.5.0.0.0,5,5.3.5,5.3.5.5,3 



CKfPCOO FP11F FLTG PNT PRT C 
FORMAT SPECIFICATIONS FOR THE 



MACRO H1 113 
DATA TABLES 



30-0CT-81 11:15 PAGE 



E 5 
119-1 



SEQUENCE 



10173 072443 DF176=Df2 

10174 072545 004 000 000 DF177: .BYTE 

10175 072550 004 000 005 DF71; .BYTE 

10176 072443 t>f72=DF2 

10177 072465 DF107sDF6 

10178 072550 0F73=DF71 

10179 072443 0F74=DF2 

10180 072443 DF75=DF2 

10181 072465 DF76=DF6 

10182 072550 DF77=DF71 

10183 072443 DF100=DF2 

10184 072443 DF101=DF2 

10185 072465 DF102=DF6 

10186 072550 DF103=DF71 

10187 072443 DF104=DF2 

10188 072443 DF105=DF2 

10189 072465 DF106=DF6 

10190 072550 DF110=DF71 

10191 072443 DF111=DF2 

10192 072443 uF112=DF2 

10193 072465 DF113=DF6 

10194 072550 DF114=DF71 

10195 072443 0F115=DF2 

10196 072443 DF116=DF2 

10197 072465 DF117=DF6 

10198 072550 DF120=DF71 

10199 072443 DF12UDF2 

10200 072443 DF122=DF2 

10201 072465 DF123=DF6 

10202 072550 DF124=DF71 

10203 072443 DF125=DF2 

10204 072443 DF126=DF2 

10205 072465 DF127=DF6 

10206 072550 DF130=DF71 

10207 072443 DF131=DF2 

10208 072465 DF132-DF6 

10209 072550 DF133=DF71 

10210 072443 DF134=DF2 

10211 072471 DF135=DF12 

10212 072471 DF136=DF12 

10213 072443 DF137=Df2 

10214 072471 DF140=DF12 

10215 072443 DF141=DF2 

10216 072443 DF142=DF2 

10217 072471 DF143=DF12 

10218 072443 DF144=UF2 

10219 072443 DF145=0F2 

10220 072471 DF146=DF12 

10221 072443 DF147=DF2 

10222 072443 DF150=DF2 

10223 072471 DF151=0F12 

10224 072443 DF152=DF2 

10225 072443 DF153=DF2 

10226 072471 DF154:DF12 

10227 072443 DF155~DF2 

10228 072443 DF156=DF2 

10229 072471 0Fl57=Dn:' 



4,0,0 

4.0.5.0.5.5.3.5,5.3.5.5.3 



CKFPCOO FPIIF FLTG PNT PRT C MACRO M1113 
FORMT SPECIFICATIONS FOR THE DATA TABLES 



30-0CT-81 11:15 PAGE 



F 5 
119-2 



SEQUENCE 265 



I wc J\J 


07?443 


1 VIC J ■ 


072443 


10? 5? 


072471 


10? 33 


072443 

Vf c^~^ 


10?^ 
1 v/c j*» 




10? 35 


072443 

V r C J 




072471 

V f C~ * 1 


102^7 


072443 

V» C"~ J 




072443 

V ' C J 




072443 

V ' C ~ ~ 


10?40 


072471 

V » C ~ ' ■ 




072443 


10242 


072443 


10243 


072503 


10?44 


072503 


10245 


072503 

V * c ^ v^ 


10246 


072503 


10247 


072503 


10248 


072503 


10249 

1 vc~ ^ 


072524 

V r C ^fc^ 


10250 

I VC ^ V 


072524 


10251 


072524 


10252 

1 VC ^c 


072503 


10253 

1 VC ^ -J 


072503 


10254 

1 VC 


072503 


10255 

1 Vb ^ ^ 


072503 


10256 

1 VC ^v 


072503 


10257 


072503 


10258 

1 Vb ^ V 


072503 


10259 

1 Vt ' 


072503 


10260 

■ Vfc w 


072503 


10261 

1 Vb V « 


072503 


10262 


072503 


10263 

1 Vb V-^ 


072503 


10264 


072503 


10265 072565 


004 


10266 


072565 


10267 072575 


004 


10268 

1 VC vv 


072565 


10269 

1 VCV w 


072565 


10270 


072575 


10271 


072565 


10272 

I Vb * b 


072565 


10273 


072575 


10274 


072565 


10275 


072565 


10276 

1 VC ' V 


072575 


10277 

\ Vfc ' « 


072565 


10278 

1 Vb • w 


072565 


10279 

1 Vfc • ' 


072575 


10280 


072565 


10281 


072565 


10282 


072565 


10283 


072575 


10284 


072565 


10285 


072565 


10286 


072565 



000 
000 



005 
005 



DF160= 
0F161= 
DF162' 
DF163: 
DF164! 
DF215: 
DF216: 

DF2I7: 

DF220: 
DF221= 

or 225- 
[>r22'»- 
DF165: 
DF166= 
DF167: 
DF170= 

DF171: 

DF172= 
DF173= 
DF174= 
DF175: 
DF200: 
0F20V 
DF202^ 
DF203: 
DF204: 
DF205^ 
DF206^ 
DF207: 
DF210^ 
DF21V 
DF212^ 
DF213 
DF214^ 
DF225 
DF226 
[>f227 
DF230 
DF231 
DF232 
DF233 
DF234 
DF235 
Dr236 
OF 237 
DF240 
DF241 
DF242 
DF243 
Df244 
DF245 
DF246 
0F247 
DF250 
DF251 
0F252 



DF2 

DF2 

DF12 

DF2 

DF2 

DF2 

DF12 

DF2 

DF2 

DF2 

DF12 

DF2 

DF2 

DF37 

DF37 

DF37 

DF37 

DF37 

DF37 

:DF41 
:DF41 
:DF41 

:DF37 
DF37 
DF37 
:DF37 
=DF37 

:DF37 
:DF37 
:DF37 

:DF37 
:DF37 
=DF37 
:DF37 
:DF37 

.BYTE 
:DF225 

.BYTE 
:DF225 
:DF225 
■■Df227 
:DF225 
■DF225 
■t>F227 
=DF225 
:DF225 
■.DF227 
:DF225 
:DF225 
■■Dr227 
=DF225 
=DF225 
:DF225 

:DF227 

OF225 
=DF225 
DF225 



4.0,5,0,5.0,5.0 
4,0,5,0 



CK^PCnO FP11F FLTG PNT PRT C MACRO N1113 
FORMAT SPECIFICATIONS FOR THE DATA TABLES 

DF253: 
DF254: 
DF255= 
DF256: 
DF257= 

000 005 DF260: 
DF261= 
DF262: 
DF263: 
DF264: 
DF265: 
DF266: 
0F267= 
DF270= 
DF271: 
[>f272: 

000 005 DF273; 

DF274= 
DF275= 
DF276: 
OF 277: 
DF300= 

000 005 0F301 ; 

DF302= 

000 005 DF303: 
DF304= 
DF305= 
DF306: 
DF307= 
DF310: 
DF311= 
DF312= 
DF313: 
DF3U: 
DF315: 
DF316= 
DF317: 
DF320^ 
DF321= 

000 005 DF322: 
DF323= 

000 005 DF324; 

DF325: 
DF326= 
DF327: 
0F330^ 
DF331= 
DF332S 
DF333= 
DF334= 
DF335: 
DF336= 
DF337: 
DF340: 
DF341= 
DF342= 
DF343= 



30-0CT-81 11:15 
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10287 


072575 


10288 


072565 


10289 


072575 


10290 


072565 


10291 


072565 


10292 072601 


004 


10293 


072601 


10294 


072601 


10295 


072601 


10296 


072601 


10297 


072601 


10298 


072601 


10299 


072601 


10300 


072601 


10301 


072601 


10302 


072601 


10303 072622 


004 


10304 


072622 


10305 


072622 


10306 


072622 


10307 


072622 


10308 


072622 


10309 072643 


004 


10310 


072643 


10311 072667 


004 


10312 


072643 


10313 


072643 


10314 


072643 


10315 


072643 


10316 


072643 


10317 


072643 


10318 


072643 


10319 


072643 


10320 


072643 


10321 


072643 


10322 


072643 


10323 


072643 


10324 


072643 


10325 


072643 


10326 072713 


004 


10327 


072713 


10328 072734 


004 


10329 


072713 


10330 


072713 


10331 


072713 


10332 


072713 


10333 


072713 


10334 


072713 


10335 


072713 


10336 


072713 


10337 


072713 


10338 


072713 


10339 


072713 


10340 


072713 


10341 


072713 


10342 


072713 


10343 


072713 



DF227 
DF225 
Of 227 
DF225 
DF225 

.BYTE 
DF260 
DF260 
DF260 
DF260 
DF260 
DF260 
DF260 
DF260 
DF260 
DF260 

.BrTE 
DF273 
OF 275 
OF 275 
OF 275 
OF 275 

.BVTE 
DF301 

.BVTE 
DF301 
DF301 
^■^301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 
DF301 

.SrTE 
0F322 

.BYTE 
DF322 
DF322 
DF322 
0F522 
0F522 
0F522 
0F522 
0F522 
DF322 
DF322 
DF322 
DF322 
DF322 
DF322 
DF322 



4.0.5.0.5.0.5.0.5.5.2.5.5.2.5.5.2 



4.0.5.0.5.0,5.0.5.5.2.5.5.3.5.5.3 



4.0.5.0.5.0.5.0.5.5.3.5.5.0.5.5.3.5.5.3 
4.0.5.0.5.0.0.0.5.5.3.5.5.0.5.5.3.5.5.3 



4.0.5.0.5.0,5.0.5.5.3.5.5.2.5.5.2 
4.0.5.0.5.0.0.0.5.5.3.5.5.2.5.5.2 



CKFPCDO fP'IF FLTG PNT PRT C MACRO 
FORMAT SPECIFICATIONS FOR THE DATA TABLES 



30-0CT-81 11.15 
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SEQUENCE 267 





072713 






Df344=DF322 


10345 


072713 






DF345=DF322 


10346 


0"»2713 






DF346sDF322 


10347 07?755 


004 


000 


005 


DF347: .BYTE 


10^48 


072755 






DF350sDF347 


10349 


072575 






DF 35 1=0F 227 


10350 


072755 






DF352=DF347 


10351 


072755 






0F353=DF347 


10352 


072755 






DF354=DF347 


10353 


072755 






DF355=DF347 


10354 


072565 






DF356=DF225 


10355 


072565 






DF357=DF225 


10356 


072575 






DF360=DF227 


10357 072776 


004 


000 


005 


DF361 : .BYTF 


10358 073022 


004 


000 


005 


0F362: .BYTE 


10359 073030 


004 


000 


005 


DF363: .BYTE 


10360 


072465 






DF364=DF6 


10361 


072465 






DF365=DF6 


10362 073040 


004 


000 


005 


DF366: .BYTE 


10363 073062 


004 


000 


005 


DF367: .BYTE 


10364 C 73072 


004 


000 


005 


DF370; .BYTE 


i0365 


073062 






DF371=DF367 


10366 


000000 






0F372=0' 


10367 


000000 






DF373=0 


10368 


000000 






DF374=0 


10369 


000000 






0F375=0 


10370 


000000 






DF376=0 


10371 


000000 






DF377=0 


10372 


000000 






DF400=0 


10373 


072565 






DF401=DF225 


10374 


072565 






0F402=DF225 


10375 


072575 






0F403=DF227 


10376 


072575 






DF404=DF227 


10377 


072565 






0F405=DF225 


10378 


072565 






DF406=DF225 


10379 


072575 






DF407=DF227 


10380 


072575 






DF410=DF227 


10381 


072565 






0F411=DF225 


10382 


072565 






0F412=DF225 


10383 


072575 






0F413=DF227 


10384 


072575 






DF414=DF227 


10385 


072565 






0F415=DF225 


10386 


072565 






DF416=DF225 


10387 


072575 






DF417=DF227 


10388 


072575 






DF420=DF227 


10389 


072565 






DF421=DF225 


10390 


072565 






Dr422=0F225 


10391 


072575 






DF423=DF227 


10392 


072575 






DF424=DF227 


10393 


072565 






DF425-DF225 


10394 


072565 






DF426=DF225 


10395 


072575 






DF427=DF227 


10396 


072575 






DF430=DF227 


10397 


072575 






0F431=0F227 


10398 


072565 






DF432=DF225 


10399 


072565 






DF433=DF225 


10400 


072575 






DF434=DF227 



4,0.5.0,5,0.5.0,5.5,3.5,5,0.5.5.0 



4.0.5.0.5.0.5,0.5.5.0,5.5.0.5.5.0,5,5,0 

4.0.5.0.5.0 ^ 

4.0.5.0,5,0,0,0 



4.0.5,0.5,0,5.5,0,0,0.0.5.5.0.0.0.0 
4.0.5.0.5.0.0.0 

4,0,5,0,0,5,5,0,0,0,0,5,5.0,0,0,0 



CKFPCDO FP11F FLTG PNT PRT C 
FORMAT SPECIFICATIONS FOR THE 



MACRO Ml 113 
DATA TABLES 



30-0CT-81 11:15 PAGE 



1 5 
119-5 



10^01 
10A02 
10A03 
104 OA 

10A05 073113 

10406 

10407 

10408 

10409 



072575 DF435=DF227 

072575 DF436=PF227 

072565 DF437=0F225 

072565 DF440=DF225 

004 000 005 DF441: .BYTE 

073113 DF442=DF441 

073113 DF443=DF441 

072443 DF444=DF2 

.EVEN 



4.0.5,0,5.0 



SEQUENCE 268 



CKFPCOO FP11F FLTG PNT PRT C MACRO H1113 30-0CT-81 
ERROR MESSAGE DATA TABLES 



10410 








.SBTTL 


10411 073122 


001232 


001234 


052167 


DTI: .WORD 


10412 073142 


001232 


001234 


052167 


DT2: .WORD 


10413 073164 


001232 


001234 


052167 


DT3: .WORD 


10414 073206 


001232 


001234 


052167 


DT4: .WORD 


10415 073230 


001232 


001234 


052167 


DTS: .WORD 


10416 073246 


001313 


052207 


001242 


.WORD 


10417 073256 


001232 


001234 


052167 


DT6: .WORD 


10418 


073206 






0T7=DT4 


10419 


073230 






DT10=DT5 


10420 


073206 






DT11=DT4 


10421 


073230 






DT12=DT5 


10422 


073256 






DT13=DT6 


10423 


073256 






DTK=DT6 


10424 


073230 






DT15=DT5 


10425 073270 


001232 


001234 


052167 


DT16: .WORD 


10426 


073256 






DT17=DT6 


10427 


073270 






DT20=DT16 


10428 


073230 






DT21=DT5 


10429 


073230 






DT22=DT5 


10430 


073256 






DT23=DT6 


10431 


073270 






DT24=DT16 


10432 


073230 






DT25=0T5 


10433 


073256 






DT26-0T6 


10434 


073270 






DT27sDT16 


10435 


073230 






DT30=DT5 


10436 


073256 






DT31=DT6 


10437 


073270 






DT32=DT16 


10438 


073230 






DT33=DT5 


10439 


073256 






DT34=DT6 


10440 


073270 






DT35=DT16 


10441 


073230 






DT36=DT5 


10442 073312 


001232 


001234 


052167 


DT37: .WORD 


10443 073334 


052247 


001240 


001313 


.WORD 


10444 


073312 






DT40=DT37 


10445 073356 


001232 


001234 


052167 


DT41: .WORD 


10446 073376 


001313 


052247 


001240 


.WORD 


10447 


073312 






DT42=DT37 


10448 


073312 






DT43=DT37 


10449 


073312 






DT44sDT37 


10450 


073312 






DT45=DT37 


10451 


073312 






DT46=DT37 


10452 


073312 






DT47-DT37 


10453 


073312 






OT50=DT37 


10454 


073312 






DT5UDT37 


10455 


073312 






DT52=DT37 


10456 


073356 






DT53=DT41 


10457 


073312 






Dr54=DT37 


10458 


073312 






0T55=DT37 


10459 


073312 






Dr56=DT37 


10460 


073312 






DT57=DT37 


10461 


073312 






DT60=Dr37 


10462 


073312 






DT61=DT37 


10463 


075270 






DT62=DT16 


10464 


073270 






DT63:^DT16 


10465 


073230 






DT64=DT5 


10466 


073270 






DT65=DT16 



11:15 PAGE 120 



SEQUENCE 269 



ERROR MESSAGE DATA TABLES 

$T«P0.$TMP1, STAB, $TMP2. STAB. $TMP3.$TMP4.0 

S TMPO . STMP1 , S TAB . S TMP2 . STAB . $ TMP3 , S TAB , iTMP5 . 0 

STMPO.STHPI , STAB. STMP2. STAB. STMP4, STAB, $TMP6,0 

STMPO.STMPl . STAB. $TMP2, STAB. $TKP4. STAB, fTMP3.0 

STMPO.STMPI ,STAB.STMP2,SCRLF.MS1 .STMP3 

SCRLF.MS2.STMP4.6 

STMPO.STMPI ,STAB,$TMP2,0 



STMPO . STMPI , STAB, $TMP2 . STAB . STMP4 .STAB . STMP3 . 0 



$T«P0,$TMP1 .STA8.$THP2, STAB. STWP7. STAB. STMPIO.SLRLF 
HS4,ST«P3,$CRLF ,MS1 .ST«P4,SCRLf ,MS2, ST«P5,0 

$TI¥»0.$TMPl,$TAB-$TMP2.fTAB,STMP7,$TnP11-STnP12 
fCRLF.HS4,$T«P3,fCRLF,«Sl,ST«P4,$CRLF,HS2.$THP5,0 



CKFPCDO FPIIF FLTG PNT ?RT C 
ERROR MESSAGE DATA TABLES 



K 5 

MACRO Ml 11 3 30-0CT-81 11:15 PAGE 120-1 



SEQUENCE 270 



10467 
10468 
10469 
IDA 70 

10A71 073422 

10472 073432 

10473 073454 
10474 

10475 

10476 073466 

10477 073504 
10478 
10479 
10480 

10481 
10482 
10483 
10484 
10485 
10486 
10487 
10488 
10489 
10490 
10491 
10492 
10493 
10494 
10495 
10496 
10497 
10498 
10499 
10500 
10501 
10502 
10503 
10504 
10505 
10506 
10507 
10508 
10509 
10510 
10511 
10512 
10^13 
10514 
10515 
10516 
10517 
10518 
10519 
10520 
10521 
10522 
10523 



073206 
073206 
073206 
073206 
001232 
001232 
001244 
073206 
073256 
001232 
001313 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073206 
073142 
073256 
073466 
073142 
073256 
073466 
073142 
073230 
073230 
073270 
073230 
073206 
073206 
073230 
073206 
073206 
073230 
073206 
073206 
073230 
073206 



001116 
001234 
001313 



001234 
052171 



DT66=DT4 
0T67=DT4 
DT70=DT4 
DT176=DT4 
046506 DTI 77: .WORD 
052167 DT71: .WORD 
052207 .WORD 
DT72=0T4 
DT107=DT6 
052167 DT73: .WORD 
001244 .WORD 
DT74=DT4 
DT75=DT2 
DT76=0T6 
DT77=DT73 
DT1C0=DT4 
DT101=DT2 
DT102^DT6 
DT103=DT73 
DT104=DT4 
DT105=DT2 
DT106=DT6 
DT110=DT73 
DT111=DT4 
DT112=DT2 
DT113=DT6 
DT114=0T73 
r)T115=0T4 
DT116=0T2 
DTI 17=076 
DT120=DT73 
DT12liOT4 
0T122=DT2 
DT123=0T6 
DT124=0T73 
DT125=0T4 
DT126=DT2 
DT127=0T6 
DT130=0r73 
DT131S0T2 
07132*076 
07133=0773 
07134=072 
07135=075 
07136=075 
07137=0716 
07140=075 
07141=074 
07142=074 
07143=075 
07144=074 
07145=074 
07146=075 
07147=074 
07150=074 
07151=075 
07152=074 



$7«PO,$ERRPC.CPSAVE.O 

$7«P0.$7MP1 .i7AB.$7«P2.f CRLF .MS3,f T«P3.$CRLF ,MS 
S7W>5.$CRLF.«S2.$7W>4.0 



$7«P0.f 7nP1 .$7A8.f 7«P2.f CRLF .MS4.$7MP4 
f CRLF .MSI .f 7MP5.iCRLF ,MS2,$7MP3,0 



CKFPCDO FP11F FLTG PNT PRT C HACRO «1113 30-0CT-81 11:15 PAGE 120-2 SEQUENCE 
ERROR MESSAGE DATA TABLES 



10524 


073206 


DT153=0T4 


10525 


073230 


V 4 C / ▼ C 

0T154sDT5 


10526 


073206 


DT155=DT4 


10527 


073206 


DT156=DT4 


10528 


073230 


DT157=DT5 


10529 


073206 


DT160=DT4 


10530 


073206 


0T161=DT4 


10531 


073230 


DT162=DT5 


10532 


073206 


DT163=DT4 


10533 


073206 


DT164=DT4 


10534 


073206 


DT215=DT4 


10535 


073230 


DT216=DT5 


10536 


073206 


DT217=DT4 


10537 


073206 


01220*014 


10538 


073206 


f^Y^^4 IVY/ 

DT221=0T4 


10539 


073230 


DT222=DT5 


10540 


A ^ 9 ^ A^ 

073206 




10541 


073206 


DT224=DT4 


10542 


A^ W 4 ^ 

073312 


DT165=DT37 


10543 


A^ W 4 1 

073312 


0T166=DT37 


10544 


A ^ 9 V 4 ^ 

073312 


DT167=DTir 


10545 


A ^ 9 9 4 1 

073312 


DT170=DT3r 


10546 


A ^9 9 4 ^ 

073312 


DTI f\=DJ5f 


10547 


073312 


AYl 70»f\YT7 

DTI 72=DT37 


10548 


A^ WC y 

073356 


Y 4 99 Y / i 

DT173=0T41 


10549 


A99 9C 

073356 


DTI r4=DTHl 


10550 


A^ W C^ 

073356 


DT175=DT4 1 


10551 


A9 W 4 ^ 

073312 


A Y AA—. A Y T 7 

DT200=DT37 


10552 


A9W4 ^ 

073312 


0T201=DT37 


10553 


073312 


0T2O2=0T3/^ 


10554 


073312 


DT203=DT3r 


10555 


073312 


DT204=DT3f 


10556 


A *»T T 4 ^ 

073312 


DT205=DT37 


10557 


073312 


f\ T ^A^-.r\ T 77 


10558 


073312 


DT207=DT3/^ 


10559 


073312 


f\ T A*f\T 77 

DT2 lO=yT3/^ 


10560 


073312 


DT2 M=DT3r 


10561 


073312 


DT212=DT37 


10562 


A 4 ^ 

073312 


DT213=0T37 


10563 


A999^ 1 

073312 


AT*i1/ _ATT7 

0T^lA=DT3r 


10564 


073206 


A T *i1C — A T / 

DT225=DT4 


10565 


0/ 3206 


DT2?0=^DT4 


10566 


073256 


DT^2r=DT6 


10567 


A99^A^ 

073206 


ATI V A^ AT/ 

01230=014 


10568 


A790/\^ 

073206 


i\T07i _if\Ty 

0T231=0T4 


4 A f ^ A 

10569 


A9T^CZ 

073256 


DT232=DTo 


4 AC 7/\ 

10570 


073206 


f«r077— ATZ 


4 AP ^4 

10571 


073206 


DT2j4=PTh 


4 AC 

10572 


073256 


DT235=DT6 


4 AC 

10573 


073206 


f\ T 07^ *f\ T/ 

0T236=DT* 


« AC 7/ 

10574 


073206 


f\T*17T— l\T/ 

DT2j/^=DT* 






V 1 c*»w— P 1 0 


10576 


073206 


DT241=0T4 


10577 


073206 


0T242=0T4 


10578 


073256 


0T243=DT6 


10579 


073206 


DT244=0T4 


10580 


073206 


01245=014 



KfPCDO FPIIF FLTG PHJ PRT C MACRO Ml ^3 30-OCT-81 
ERROR MESSAGE DATA TABLES 



10581 


073206 






DT246=DT4 


10582 


073256 






DT247=DT6 


10583 


073206 






DT250=DT4 


1058A 


073206 






DT251=DT4 


10585 


073206 






DT252=DT4 


10586 


073256 






DT2530T6 


10587 


073206 






0T254=DT4 


10588 


073256 






DT255=DT6 


10589 


073206 






DT256=0T4 


10590 


073206 






0T257=DT4 


10591 


073312 






DT260=DT37 


10592 


073312 






DT261=0T37 


10593 


073312 






0T262=0T37 


10594 


073312 






0T263=DT37 


10595 


073312 






DT264=DT37 


10596 


073312 






0T265=DT37 


10597 


073312 






DT266=DT37 


10598 


073312 






0T267=DT37 


10 599 


073312 






0T270=DT37 


10600 


073312 






DT27UDT37 


10601 


073312 






DT272=DT37 


10602 


073312 






07273=0137 


10603 


073312 






01274=0737 


10604 


073312 






07275=0737 


10605 


073312 






07276=0737 


10606 


073312 






07277=0737 


10607 


073312 






07300=0737 


10608 073522 


001232 


001234 


052167 


07301 : .WORO 


10609 073542 


001313 


052231 


001240 


.WORO 


10610 073556 


001313 


052171 


001246 


.yORO 


10611 


073522 






07302=07301 


10612 073574 


001232 


001234 


052167 


D7303: .WORO 


10613 073614 


001313 


052231 


001240 


.WORO 


10614 073650 


001313 


052171 


001246 


.WORO 


10615 


073522 






07304=07301 


10616 


073522 






07305=07301 


10617 


073522 






07306=07301 


10618 


073522 






07307=07301 


10619 


073522 






07310=07301 


10620 


073522 






07311=07301 


10621 


073522 






07312=07301 


10622 


073522 






07313*07301 


10623 


073522 






07314=07301 


10624 


073522 






07315=07301 


10625 


073522 






07316=07301 


10626 


073522 






07317=07301- 


10627 


073522 






07320=0^301 


10628 


073522 






07321=07301 


10629 073646 


001232 


001234 


052167 


07322: .WORO 


10630 073666 


001313 


052231 


001240 


.WORD 


10631 


073646 






07323=07322 


10632 073712 


001232 


001234 


052167 


07324: .WORO 


10633 073732 


001313 


052231 


001240 


.WORO 


10634 


073646 






07325=07322 


10635 


073646 






07326=07322 


10636 


073646 






07327=07322 


10637 


073646 






07330=07322 
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S7«P0.$7PIP1.$TA8.$T«P2.$7AB,$7MP7.$TA8.$TMP10 
$CRLF .PIS10.$7«P3.$CRLF .MS1 1 ,$7MP4 
SCRLF .MSI .i7«P6.$CRLF ,MS2.$rMP5.0 

$7MP0.$7«P1 .$7Ae.$7MP2.$TAB.S7MP7.$7MP1 1 .$TMP12 
fCRLF .«S10.$7MP3.$CRLF .MS1 1 .$7MP4 
SCRLF .MSI .$7MP6.$CRLF .MS2,$TMP5.0 



$7«P0 . $7MP1 - $7A8 . $7MP2 . $7AB. $ 7MP7 . $7Ae . $7MP1 0 
SCRLF .MSl0.i7W>3.SCRLF .MSI .i7nP4.SCRLF .nS2.S7W>5.0 

$7MP0,$7MP1 .S7A8,$7MP2.$7A8.S7MP7,$7HP1 1 .$7HP12 
SCRLF. MS10.$7«P3. SCRLF. MSI. i7MP4.iCRLF.MS2.$7MP5.0 
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10638 




073646 




10639 




073646 




10640 




073646 




10641 




073646 




10642 




073646 




10643 




073646 




10644 




073646 




10645 




073646 




10646 




073646 




10647 




073646 




10648 




0'3646 




10649 




073646 




10650 




073646 




10651 




073646 




10652 




073646 




10653 




073646 




10654 




073256 




10655 




073646 




10656 




073646 




10657 




073646 




10658 




073646 




10659 




073142 




10660 




073164 




10661 




073256 
073522 




10662 






10663 


075756 


001232 


A A 4^7/ 

001234 


10664 


075774 


001232 


A A 4 ^ V / 

001234 


10665 


074016 


001232 


AA4 119/ 

001234 


10666 




073256 




10667 


074030 


A A 4 

001232 


A A 4 ^ 9 / 

001234 


10668 


074044 


A A 4 T 4 T 

001313 


ACT 'iA^ 

052207 


10669 


074060 


A A 4 9 4 9 

001313 


A C ^ 4 ^4 

052171 


10670 074076 


A A 4 1 T ^ 

001232 


AA4 'iTy 

001234 


10671 


074122 


AAi ^T') 

001232 


A A 4 "^Ty 

001234 


10672 


074134 
074150 


A A 4 T 4 T 

00'313 


AC "^TIZ 

052326 


10673 


AA4 T4 T 

00131 3 


AC ^9 4 / 

052314 


10674 


074166 


001232 


AAI 

001234 


10675 




A A A A A A 

000000 




10676 




A A A A A A 

000000 




10677 




A A A A A A 

000000 




10678 




A A A A A A 

000000 




10679 




A A A A A A 

000000 




10680 




A A A AAA 

000000 




10681 




A A A AAA 

000000 




10682 




A ^9 ^ A ^ 

073206 




10683 




073206 




10684 




073256 




10685 




073256 




10686 




A T T A^ 

073206 




10687 




A ^ 9 A ^ 

073206 




10688 




073256 




1068<> 




3c JO 




10690 




073206 




10691 




073206 




10692 




073256 




10693 




073256 




10694 




073206 





052167 
052167 
052167 

052167 
001240 
001252 
052167 
052167 
001240 
001252 
052167 



DT331 
D'332 
DT333 
DT334 
DT335 
DT336 
DT337 
DT340 
DT341 
DT342 
DT343 
DT344 
DT345 
DT3«.6 
DT347 
DT350 
DT351 
DT352 
DT353 
DT354 
DT355 
DT356 
DT357 
DT360 
DT361 
DT362 
DT363 
DT364 
DT365 
DT366 



DT367: 
DT370: 



DT371: 
DT372= 
DT373: 
DT374: 
DT375: 
DT376: 
DT377: 
0T400: 
DT401: 
0T402: 
DT403: 
0T404: 
0T405= 
DT406: 
DT407: 
DT410= 

DT411: 

DT412= 
DT413: 
0T414: 
0r415= 



01322 

:DT322 

DT322 

:DT322 

DT322 

:DT322 

DT322 

DT322 

DT322 

DT322 

:DT322 

DT322 

DT322 

DT322 

DT322 

DT322 

DT6 

DT322 

DT322 

DT322 

DT322 

DT2 

DT3 

DT6 

DT302 
.WORD 
.WORD 
.WORD 

:DT6 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

0 
0 
0 
0 
0 
0 
0 

0T4 
DT4 
DT6 
DT6 
DT4 

:DT4 

DT6 
DT6 

:DT4 

DT4 
DT6 
DT6 
DT4 



N S 
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$T«P0.$TMP1 ,$TAB.$T«P2,$TA8.$TW>3.0 

$TW>0.$TMP1. STAB. $T«P13, STAB. $TW>2.$TW>3.EXPCTD.O 

ST«P0.ST«P1 . STAB. ST«P1 3.0 

STMPO.STRPI . STAB, ST«P13, STAB. ST«P2 

SCRLF .HS2.STHP34ST«P4,ST«P6.STW>7 

SCRLF .HS1 ,STHP10.STNP11 .$T«P12.ST«P21 .0 

STW0.STHP1. STAB. ST«P2,ST«P13, STAB. STMP6. STAB. $TMP3.0 

ST«P0,STHP1.STA6.ST«P2,ST«P13 

SCRLF. HS21.STW>34ST«P4.ST«P6.ST«P7 

SCRLF .HS20.ST«P10.ST«P11 ,ST«P12.$TW>21 .0 

STW0.STMP1, STAB. iTMP13, STAB, ST«P3.ST«P4.STW>2,0 
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SEQUENCE ?74 



10695 




073206 


10696 




073256 


10697 




073256 


10698 




073206 


10699 




073206 


10700 




073256 


10701 




073256 


10702 




073206 


10703 




073206 


10704 




073256 


10705 




073256 


10706 




073256 


10707 




073206 


10708 




073206 


10709 




073256 


10710 




073256 


10711 




073256 


10712 




073206 


10713 




073206 


10714 


074210 


001232 


10715 


074226 


001232 


10716 




074226 


10717 




073206 


10718 




000001 



DT416= 
DT417: 
DT420= 
DT421= 
DT422= 
DT423' 
DT424: 
DT425= 
DT426= 
DT427: 
DT430= 
DT431= 
DT432= 
DT433= 
DT434: 
DT435: 
DT436= 
DT437: 
DT440= 
052167 DT441 
052167 DT442 
DT443: 
DT444- 



rDT4 

:DT6 
=DT6 

:DT4 

:DT4 
=DT6 

:DT6 

:DT4 

:DT4 

:DT6 

:DT6 

=DT6 

:DT4 
:DT4 
:DT6 

=DT6 

:DT6 
:DT4 
:DT4 

.WORD 
.UORD 

:DT442 

=DT4 
.END 



STMPO.STNPI ,$TAB.$TMP2.$TA8.STMP3.0 
$TW>0,$THP1 ,$TA8.$TMP2.0 





FP11F FlTG PNT 


PRT C 




MACRO M1113 


30-OCT-81 


11:15 


SYMBOL 


'ABLE 
















ABASE = 


000000 


AUSUR 




000000 


OF' 


113 




07246S 


ACDWl = 


000000 


AVECT1 


= 


000000 


OF 


114 




072550 


ACDW2 = 


000000 


AVECT2= 


000000 


OF 


lis 




072443 


ACPUOP= 


000000 


BADCON 


060664 


OF 


116 


= 


072443 


ACO = 


zoooooo 


BITO 


= 


000001 


OF' 


117 


= 


07246S 


AC1 = 


X000001 


BITOO 




000001 


DF' 


12 




072471 


AC2 = 


A A A A A 

X000002 


B1T01 


= 


4^ 4^ A 4^ ^ 

000002 


OF' 


120 




07255O 


AC3 = 


X000003 


BIT02 




000004 


OF' 


121 


= 


072443 


AC4 = 


XOOOOOA 


BIT03 


= 


000010 


OF' 


122 


= 


072443 


ACS = 


X000005 


BIT04 




000020 


0F1 


123 




072465 


AC6 = 


X000006 


BIT05 




000040 


OF' 


124 


= 


072550 


AC7 = 


X000007 


BIT06 




000100 


OF' 


125 


= 


072443 


ADDWO = 


000000 


BIT07 




000200 


0F1 


26 




072443 


AD0W1 = 


000000 


BIT08 




000400 


DF1 


27 




072465 


A0DW1 0= 


000000 


BIT09 




AA4 AAA 

001000 


DF1 


13 




A9 A t M ^ 

072465 


A0DU11: 


000000 


Bin 


= 


AAAAAA 

000002 


DF1 


130 




072550 


ADDW12= 


A A A A A A 

000000 


BIT10 




AAAAAA 

002000 


OF' 


131 


= 


072443 


AODWl 3= 


A A A A A 

000000 


BIT11 




AA t AAA 

004000 


0F1 


132 


= 


072465 


AOOUH= 


AAA AAA 

000000 


BIT12 




A4 AAAA 

010000 


OF' 


133 




072550 


AODWl 5= 


A A A A A A 

000000 


BIT13 




020000 


0F1 


134 




072443 


A0DW2 = 


A A A A A A 

000000 


BITU 




A4 AAAA 

040000 


OF' 


135 


= 


072471 


A00W3 = 


A A A A A A 

000000 


BIT15 


- 


4 A A A A A 

100000 


OF' 


136 


= 


072471 


AOOyA = 


A A A A A A 

000000 


BIT2 




AAAAA » 

000004 


DF1 


137 




072445 


AOOWS = 


A A A A A A 

000000 


BIT3 




AAAAA A 

000010 


OF' 


14 


= 


072465 


A00U6 = 


A A A A A A 

000000 


BIU 




AAAAAA 

000020 


OF' 


140 


= 


072471 


A00W7 = 


A A A A A A 

000000 


BITS 




AAAA t A 

000040 


OF' 


141 


= 


072443 


A00W8 = 


A A AAA A 

000000 


BIT6 




AAA4 AA 

000100 


OF' 


142 


= 


A9 A 11^ 

072443 


A00W9 = 


A A A AAA 

000000 


BIT7 




AAAAAA 

000200 


OF' 


143 




A9 A ^94 

072471 


AOEVCT= 


A AAA A A 

000000 


BITS 




AAA t A A 

000400 


OF' 


144 


= 


072443 


ADEVH = 


A A AAA A 

000000 


BIT9 




AA4 AAA 

001000 


OF' 


145 




072443 


AENV = 


A A AAA A 

000000 


BPTVEC 




AAAA4 M 

000014 


OF' 


146 




A9A 4 94 

072471 


AENVn = 


A A A A A A 

000000 


BUTIN 




060713 


OF' 


147 




072443 


AFATAL= 


A A A A A A 

000000 


BrTABL 


045312 


OF' 


15 




072471 


AnA0R1= 


A AAA A A 

000000 


CKSUR 




104406 


OF' 


ISO 




072443 


AnA0R2= 


A A A A A A 

000000 


CNT 




000445 


OF' 


151 




072471 


AnA0R3= 


AAA AAA 

000000 


CPSAVE 


046506 


OF' 


152 


= 


072443 


AnA0R4= 


A A A A A A 

000000 


CPSPUR 


051774 


OF' 


153 




072443 


AnAnsi= 


AAAA A A 

000000 


CPTWO 




AP A A'\ A 

052022 


DF' 


154 




072471 


AnAns2= 


AAAA A A 

000000 


CR 




AAAA4 P 

000015 


OF' 


155 


= 


A9 A / / 9 

072443 


AhAMS3= 


A AAAA A 

000000 


CRBUT 




052653 


OF' 


156 


= 


A9 A > / 9 

072443 


AMAHS A = 


AAA AAA 

000000 


CRLF 




AAAAAA 

000200 


OF' 


157 




072471 


AMSGAD= 


AAAAAA 

000000 


DATA 




1 1 7760 


DF' 


16 


= 


072443 


AMSGLG^ 


AAAAAA 

000000 


DDISP 




177570 


DF1 


60 




072443 


AHS6TV= 


AAAAAA 

000000 


DF1 




A^ A ^ 9 M 

072434 


DF' 


161 




A9 A 4 4 9 

072443 


AWTyP1= 


000000 


DF10 




072453 


DF' 


162 


s; 


072471 


AHTYP2= 


AAAAAA 

000000 


DF100 




072443 


OF' 


'63 


ST 


072443 


AHTyP3= 


AAAAAA 

000000 


DF101 




072443 


OF' 


164 




A9 A 4 4 9 

072443 


AWTVP4= 


AAAAAA 

000000 


DF102 




A9 A t £ f 

072465 


OF' 


65 


= 


A 9 Ai* A9 

072503 


APASS = 


AAAAAA 

000000 


DF103 




A9 AP P A 

072550 


OF' 


166 




072503 


APRIOR= 


AAAAAA 

000000 


DF10A 




072443 


DF' 


167 




072503 


APTCSU= 


AAAA M A 

000040 


DF105 




A 9 A 

072443 


OF' 


17 




072465 


APTENV= 


A AAAA 4 

000001 


DF106 




A9^ / £ ^ 

072465 


OF' 


170 


= 


A 9 Ar A9 

072503 


APTSIZ= 


AAA ^AA 

000200 


DF107 




A 9 A / £ P 

072465 


OF' 


171 




072503 


APrSPO= 


AAA 4 A A 

000100 


DF11 




A 9 A / / 9 

072443 


OF' 


I 9A 

172 




072503 


A5WKCU- 


AAAAAA 


DF110 




A79CCA 


OF 


173 




A70C 0/ 


ATESTN= 


000000 


DF111 




072443 


OF 


174 




072524 


AUNIT - 


000000 


DF112 




072443 


DF 


175 




072524 



C 6 
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Of 176 




072443 


DF26 


= 


072465 


OF 177 




072545 


DF260 




072601 


DF2 




072443 


DF261 




072601 


DF20 


- 


072443 


DF262 


= 


072601 


DF200 




072503 


DF263 




072601 


DF201 




072503 


OF 264 


- 


072601 


DF202 




072503 


DF265 




072601 


OF 203 




072503 


DF266 




072601 


DF204 




072503 


0F267 




072601 


DF205 


- 


072503 


DF27 




072443 


DF206 


- 


072503 


0F270 




072601 


A 9 A A9 

DF207 


- 


A 9 A P A9 

072503 


DF271 




072601 


DF21 


- 


A 9 A / 9 4 

072471 






072601 


DF210 


- 


A 9 A^ A9 

072503 


DF273 




072622 


A r A 4 4 

DF211 


— 


A9 Ar A9 

072503 


A 9 A9 4 

DF274 


- 


072622 


^ A 4 A 

0F212 


- 


A9 Ar A9 

072503 


0F275 




072622 


DF213 


- 


072503 


0F276 




072622 


0F214 


- 


A 9 A PA 9 

072503 


Of 277 


- 


072622 


A r A 4 r 

DF215 


- 


A 9 A / / 9 

072443 


0F3 


- 


072443 


DF216 


- 


A 9 A 4 94 

072471 


0F30 




072471 


A r A4 9 

DF217 


— 


A9 A 4 4 9 

072443 


0F300 




072622 


A r A A 

DF22 


— 


A 9 A 4 9 4 

072471 


0F301 




072643 


A r A A A 

0F220 


- 


A9 A 4 4 9 

072443 


DF302 




072643 


A r ^ ^ 4 

0F221 


— 


A9 A 4 4 9 

072443 


A r 9 A9 

OF 303 




A9A^ £ 9 

072667 


A r A A A 


— 


A9 A 4 9 4 

072471 


A r 9 A 4 

OF 304 


- 


072643 


Ar AA9 

OF 223 


— 


A9 A 4 4 9 

072443 


A r 9 Af 

0F305 


— 


A9 A^ 4 9 

072643 


Ar ^ ^ 4 

OF 224 


— 


A9 A 4 4 9 

072443 


A r 9 A^ 

OF 306 


— 


A9A^ 4 9 

072643 


A ft- A Af 

DF225 




A 9 Ar £ e 

072565 


■k ^ 9 A9 

DF307 


— 


A9A^ 4 9 

072643 


A r A A ^ 

DF226 


— 


A9Ar £ r 

072565 


A^ 94 

DF31 




072465 


A r A A9 




A9Ar 9r 

072575 


DF310 




A9A^ 4 9 

072643 


A r A9 

OF 23 




A9 A a £ ^ 

072465 


DF311 




072643 


A r A 9 A 

OF 230 


- 


A9 AP y r 

072565 


Ik r 9 4 A 

DF312 




072643 


A r ^9 4 

0F231 


— 


072565 


A r 9 4 9 

DF313 


— 


A9A^ 4 9 

072643 


Ar A9A 

OF 232 


— 


A9 Ar 9r 

072575 


DF314 


— 


A9A^ 4 9 

072643 


A r A9 9 

OF 233 


— 


072565 


A r 9 4 r 

DF315 


— 


A9A^ 4 9 

072643 


Ar A9 / 

DF234 


— 


A9 AC £ r 

072565 


DF316 


— 


4* 9A^ 4 9 

072643 


A r ^9 r 

DF235 


— 


A9^r 9r 

072575 


A r 94 9 

DF317 


— 


A9A^ 4 9 

072643 


A r A > ^ 

OF 236 


— 


072565 


A r 9 A 

DF32 


— 


A9 A 4 4 9 

072443 


Ar 

OF 237 


— 


ik9^C^ C 

072565 


A r 9 AA 

DF320 


— 


A9A^ 4 9 

072643 


Ar A4 

OF 24 


— 


A9A4 4 9 

072443 


A ^ 9 A4 

DF321 


- 


A9 A ^ 4 9 

072643 


Ar A4 A 

0F240 


— 


A9 AC 9r 

072575 


A ^ 9 A A 

OF 322 




A9A94 9 

072713 


Ar ^44 

DF241 


— 


A9^C^ C 

072565 


Ar 9 A9 

DF323 


— 


A9A94 9 

072713 


Ar A 4 ^ 

DF242 


— 


A9^C^ C 

072565 


A r 9 A 4 

DF324 




»«9 A99 4 

072734 


DF243 


— 


072575 


A r 9 AP 

DF325 


- 


A9A94 9 

072713 


Ar ^ 4 4 

DF244 


— 


072565 


A r 9 A^ 

OF 326 


— 


A9A94 9 

072713 


0F245 


— 


A9'>CZ C 

072565 


A r 9*^9 

0F327 


- 


A9 A 9 4 9 

072713 


Ar ^ 

OF 246 




072565 


Ar 99 

0F33 


- 


A9 A 4 94 

072471 


0F247 


— 


072575 


AP 9TA 

OF 330 


— 


072713 


Ar Ar 

OF 25 


— 


A9^/ 94 

072471 


A 9 94 

0F331 


— 


072713 


Ar- ACA 

0F250 


- 


072565 


A r 99 A 

DF332 


— 


A9A94 9 

072713 


A Ar 4 

DF251 


— 


072565 


A 9 99 

0F333 


— 


A9A94 9 

072713 


l\C 

VT CJC 






Or jjH 






0F253 




072575 


DF335 




072713 


OF 254 




072565 


0F336 




072713 


OF 255 




072575 


DF337 




072713 


DF256 




072565 


DF34 




072465 


DF257 




072565 


OF 340 




072713 
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DF5A1 


Z 


072713 


DF423 




072575 


DH102 




071460 


OH 164 


= 


071520 


0H244 


= 


071404 


DF3A2 




072713 


DF424 




072575 


DH103 




J71447 


DH165 




071563 


0H245 




071274 


0F5A3 




072713 


DF425 


= 


072565 


DH104 


= 


071404 


DH166 




071563 


0H246 




071520 


OF 3A4 




072713 


DF426 




072565 


DH105 


= 


071274 


OHI 67 


= 


071563 


0H247 


s 


071726 


OF3A5 




072713 


DF427 




072575 


OH 106 


= 


071460 


OHI 7 


= 


071460 


0H25 


s 


071447 


0F3A6 


= 


072713 


DF43 




072503 


DH107 




071460 


DH170 


= 


071563 


0H250 


= 


071404 


0F3A7 




072755 


DF430 




072575 


DH11 


= 


071404 


OHI 71 




071563 


0H251 


s 


071274 


OF 35 


= 


072443 


DF431 




072575 


DH110 


= 


071447 


OHI 72 




071563 


0H252 




071520 


OF 350 


= 


072755 


OF 4 32 


= 


072565 


DH111 




071404 


OHI 73 




071626 


0H253 




071726 


OF351 




072575 


DF433 




072565 


DH112 




071274 


OHI 74 




071626 


DH2S4 


= 


071520 


DF352 




072755 


DF434 




072575 


0H113 




071460 


OHI 75 




071626 


DH255 


s 


071726 


DF353 


* 


072755 


DF435 


= 


072575 


DH114 


= 


071447 


DH176 


- 


071274 


0H256 


= 


071404 


OF 354 




072755 


DF436 




072575 


DH115 


St 


071404 


OHI 77 




071677 


0H257 




071274 


OF 355 


= 


072755 


0F437 




072565 


DH116 




071274 


DH2 




071274 


0H26 




071460 


OF 356 


= 


072565 


DF44 




072503 


DH11/ 




071460 


0H2B 




071310 


DH260 




071563 


DF357 




072565 


DF440 


= 


072565 


DH12 




071447 


DH20 




071404 


0H261 




071563 


DF36 




0^2471 


0F441 




073113 


DH120 




071447 


0H200 




071563 


0H262 




071563 


OF 360 




072575 


DF442 




073113 


0H121 




071404 


DH201 




071563 


0H263 




071563 


OF 361 




072776 


0F443 




073113 
072443 


OHI 22 




071274 


DH202 


- 


071563 


0H264 




071563 


OF 362 




073022 


DF444 




OH 123 




071460 


0H203 


- 


071563 


0H265 




071563 


OF 363 




073030 


DF45 


- 


072503 


DH124 




071447 


0H204 




071563 


0H266 




071563 


OF 364 




072465 


0F46 


- 


072503 


OHI 25 




071404 


0H205 




071563 


0H267 




071563 


0^365 




072465 


0F47 




072503 


OHI 26 


- 


071274 


0H206 




071563 


0H27 




071404 


OF 366 




073040 


0F5 




072453 


0H127 


- 


071460 


0H207 




071563 


0H270 


= 


071563 


OF 367 




073062 


DF50 


- 


072503 


DH13 




071460 


DH21 




071447 


0H271 




071563 


DF37 




072503 


DF51 


- 


072503 


DH130 


- 


071447 


DH210 


- 


071563 


0H272 


- 


071563 


OF 370 




073072 


OF 52 


— 


072503 


DH131 


— 


A^ J 

071274 


0H211 




071563 


0H273 


- 


071563 


DF371 


- 


073062 


OF 53 


— 


072503 


DH132 


— 


071460 


DH212 




071563 


0H274 




071 563 


OF 372 


- 


000000 


DF54 


- 


072503 


DH133 


- 


071447 


A ■ a A« 9 

0H213 


- 


071563 


0H275 




071563 


OF 373 


- 


000000 


0F55 


— 


A^'\tf* A^V 

072503 


OH 134 


- 


071274 


0H214 


- 


071563 


0H276 




071563 


OF 374 




A AAA A A 

000000 


DF56 


— 


072503 


OHI 35 


- 


071447 


0H215 




071520 


0H277 




071563 


OF 375 




000000 


DF57 




072503 


OH 136 


- 


071447 


0H216 


- 


071447 


0H3 




071340 


OF 376 




A A A A A A 

000000 


0F6 




072465 


0H137 


- 


071274 


0H217 




071404 


0H3B 




071354 


DF377 




000000 


OF 60 


- 


A^*\^ A*V 

072503 


OHI 4 


- 


071460 


0H22 




071447 


0H30 


= 


071447 


DF4 




072443 


DF61 


- 


A^*\^ A9 

072503 


OHI 40 


- 


071447 


0H220 




071274 


0H300 


= 


071563 


DF40 


- 


072503 


OF 62 


- 


072443 


PH141 


- 


071404 


0H221 


- 


071520 


0H301 




071563 


DF400 


- 


A A A A A A 

000000 


OF 63 


- 


072443 


0H142 


- 


071274 


0H222 




071447 


DH302 


- 


071563 


DF401 


- 


072565 


OF 64 


- 


072453 


0H143 




071447 


0H223 




071404 


0H303 


= 


071626 


OF 402 


- 


072565 


DF65 


- 


072443 


OHI 44 


- 


071404 


0H224 




071274 


DH304 




071563 


OF 403 


- 


072575 


OF 66 




072443 


0H145 


- 


071274 


0H225 




071404 


0H305 




071563 


OF 404 




072575 


0F67 


- 


072443 


DH146 




071447 


DH226 




071274 


0H306 




071563 


OF 405 


- 


072565 


OF 7 


— 


072443 


0HU7 




071404 


DH227 




071726 


0H307 


s 


071563 


0F406 


- 


072565 


DF70 


- 


072443 


DH15 




071447 


DH227B 


071 740 


0H31 




071460 


DF407 


- 


072575 


DF71 




072550 


OHI 50 




071274 


0H23 




071460 


0H310 


= 


071563 


DF41 




072524 


A ^ ^ A 

OF 72 


- 


072443 


0H151 


- 


071447 


0H230 




071404 


0H311 




071563 


DF410 




A^*\ ^ 

072575 


OF 73 


- 


072550 


OHI 52 


- 


071404 


0H231 




071274 


0H312 




071563 


DF411 


- 


072565 


OF 74 


— 


072443 


OHI 53 




071274 


0H232 




071726 


0H313 




071563 


DF412 


- 


072565 


OF 75 


— 


072443 


OHI 54 


- 


071447 


0H233 




071404 


0H314 


- 


071563 


DF413 


- 


072575 


OF 76 


- 


072465 


OHI 55 


- 


071404 


0H234 




071274 


0H315 




071563 


DF414 


- 


072575 


OF 77 


- 


072550 


OH 156 




071274 


0H235 




071726 


0H316 


- 


071563 


DF415 




072565 


DH1 




071204 


0H157 


— 


071447 


0H236 




071404 


0H317 


— 
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DH325 = 


071563 


DH40 




071563 


DH60 


— 


071563 


DT137 




073270 


DT220 




073206 


0H326 = 


071563 


DH400 




000000 


DM61 


r 


071563 


DTK 


= 


073256 


DT221 


: 


073206 


DH327 = 


071563 


DH401 


= 


071404 


DH62 




071274 


DT140 




073230 


DT222 


: 


073230 


OH33 = 


071447 


DH402 


r 


071274 


DH63 




071340 


DT141 


r 


073206 


DT223 


= 


073206 


t)H330 = 


071563 


DH403 


z 


071460 


DH64 




071447 


DT142 




073206 


DT224 


r 


073206 


0H331 = 


071563 


0H404 




071726 


DH65 




071274 


DT143 




073230 


DT225 




073206 


DH332 = 


071563 


0H405 


= 


071404 


DH66 




071404 


DT144 




073206 


DT226 


s 


073206 


DH333 = 


071563 


DH406 


= 


071274 


DH67 


r 


071274 


DT145 




073206 


DT227 


= 


073256 


0H334 - 


071563 


DH407 


r 


071460 


DH7 




071404 


DT146 


s 


073230 


DT23 


s 


073256 


0H335 = 


071563 


DH41 




071626 


DH70 




071340 


DT147 


s 


073206 


DT230 


s 


073206 


0H336 = 


071563 


DH41B 




071642 


DH71 


~ 


071447 


DT15 


s 


073230 


0T231 




073206 


DH337 = 


071563 


DH410 


= 


071726 


DH72 


s 


071274 


DT150 


s 


073206 


0T232 


= 


073256 


DH34 - 


071460 


DH411 


r 


071404 


DH73 


r 


071447 


0T151 


r 


073230 


DT233 




073206 


0H340 = 


071563 


DH412 


r 


071274 


0H74 




071404 


DT152 


s 


073206 


DT234 


= 


073206 


0H3A1 = 


071563 


DH413 


= 


071460 


0H75 




071274 


DT153 


r 


073206 


DT235 


— 


073256 


DH3A2 = 


071563 


DH414 


s 


071726 


DH76 




071460 


DT154 


- 


073230 


DT236 


= 


073206 


DH3A3 = 


071563 


DH415 




071404 


DH77 




071447 


DT155 


= 


073206 


DT237 


— 


073206 


0H344 = 


071563 


DH416 




071274 


DIDONE 


045416 


DT156 


r 


073206 


DT24 




073270 


DH3A5 = 


071563 


DH417 


= 


071460 


DISPLA 


001142 


DT157 


= 


073230 


DT240 


- 


073256 


DH3A6 = 


071563 


DH42 


z: 


071563 


DlZPRt 


000174 


DT16 




073270 


DT241 




073206 


0H3A7 = 


071563 


DH420 


— 


071726 


DSUR 


= 


177570 


DT160 


= 


073206 


DT242 


- 


073206 


OH35 = 


071404 


DH421 


— 


071404 


DTI 




073122 


DT161 


r 


073206 


DT243 


- 


073256 


OH350 = 


071563 


DH422 


- 


071274 


DTiO 




073230 


DT162 


r 


073230 


DT244 


— 


073206 


DH351 = 


071460 


DH423 


r 


071460 


DTlOO 


- 


073206 


DTI 63 


- 


073206 


DT245 




073206 


OH352 = 


071563 


DH424 




071726 


DT101 


- 


073142 


DT164 


— 


073206 


DT246 


= 


073206 


OH353 


071563 


0H425 




071404 


DT102 


- 


073256 


DT165 


s 


073312 


DT247 




073256 


OH35A = 


071563 


DH426 




071274 


DTI 03 


— 


073466 


DTI 66 




073312 


DT25 




073230 


DH355 = 


071 S63 


DH427 




071460 


DTI 04 


— 


073206 


DT167 


= 


073312 


DT250 




073206 


0H356 = 


071404 


DH43 


— 


071563 


DT105 




073142 


DT17 




073256 


DT251 




073206 


OH357 


071746 


DH430 


- 


071726 


DTI 06 




073256 


DT170 




073312 


DT252 


= 


073206 


0H3578 


071762 


DH431 


= 


071460 


DT107 


— 


073256 


DT171 


r 


073312 


DT253 


r 


073256 


0H36 = 


071447 


DH432 




071404 


BT1 1 




073206 


DT172 




073312 


DT254 




073206 


DH360 - 


071460 


DH433 




071274 


DT110 




073466 


DTI 73 




073356 


DT255 




073256 


DH361 = 


071274 


DH434 


= 


071460 


DT111 




073206 


DT174 


= 


073356 


DT256 


r 


073206 


0H362 


072012 


DH435 


- 


071726 


DT112 




073142 


DT175 


r 


073356 


DT257 


- 


073206 


0H362B 


072026 


DH436 


r 


071460 


DT113 




073256 


DTI 76 


r 


073206 


DT26 


= 


073256 


0H363 


072034 


DH437 


— 


071404 


DT114 




073466 


DT177 




073422 


DT260 




073312 


OH 3656 


072050 


DH44 




071563 


DT115 




073206 


DT2 




073142 


DT261 


- 


073312 


0H364 


072074 


DH440 




071404 


DT116 




073142 


DT20 


= 


073270 


DT262 


— 


073312 


0H36AB 


072106 


DH441 




072412 


DT117 




073256 


07200 


s 


073312 


DT263 




073312 


0H365 


072143 


DH441B 


072426 


DT12 




073230 


DT201 


= 


073312 


DT264 


= 


073312 


DH366 


072154 


DH442 




072143 


DT120 




073466 


DT202 


- 


073312 


DT265 


- 


073312 


0H366e 


072170 


DH443 




072143 


DT121 




073206 


DT203 




073312 


DT266 


r 


073312 


0H367 


072206 


DH444 




071340 


DT122 




073142 


DT204 


= 


073312 


DT267 


r 


073312 


0H367B 


07222? 


0H45 




071563 


0T123 




073256 


DT205 


r 


073312 


DT27 


- 


073270 


0H37 


071563 


DH46 




071563 


DT124 




073466 


DT206 


z 


073312 


DT270 


- 


073312 


OH37B 


071576 


DH47 




071563 


DT125 




073206 


DT207 




073312 


Dr271 


r 


073312 


OH370 


072253 


DH5 




071447 


DT126 




073142 


DT21 


= 


073230 


DT272 




073312 


0H371 


072316 


0H50 




071563 


DT127 




073256 


DT210 


= 


073312 


DT273 


— 


073312 


0H372 = 


000000 


0H51 




071563 


DT13 




073256 


DT211 


r 


073312 


DT274 


- 


073312 
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DH52 




071563 


DT130 
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DT212 
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DT275 


— 
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0H374 = 
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DT131 
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DH55 
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073466 
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073522 


DT365 




073256 


DT47 = 


U 1 




073574 


DT366 




074030 


DT5 
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u 1 




073522 


DT367 




074076 


DT50 = 






073522 


DT37 




073312 


DT51 = 






073522 


DT370 




074122 


DT52 = 


U I j\Jf 




073522 


DT371 




074166 


DT53 = 


r\^x^ 

U 1 J 1 




073256 


DT372 


= 


000000 


DT54 = 


U 1 J 1 U 




073522 


DT373 




000000 


DT55 = 


IM XI 1 

U 1 J 1 1 




073522 


DT374 


= 


000000 


DT56 = 


^l^x^ p 




073522 


DT375 


- 


000000 


DT57 = 
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073522 


0T376 




000000 


DT6 
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073S22 


DT377 


= 


000000 


DT60 = 


U 1 J 1 7 




073522 


DT4 




073206 


DT61 s 


U 1 J 1 0 




073522 


DT40 




073312 


DT62 = 


r\^x^ 7 

U 1 J 1 f 




073522 


DT400 


= 


000000 


DT63 = 


r>TX? 




073270 


DT401 




073206 


DT64 = 


U 1 JC\J 




073522 


DT402 


- 


073206 


DT65 = 


U 1 JC I 




073522 


DT403 


- 


073256 


DT66 = 


HTX?? 
U 1 jCC 




073W6 


DT404 




073256 


DT67 = 


r>TX?X 




073646 


DT405 




073206 


DT7 = 


HT 

U 1 JCS 




073712 


DT406 


- 


073206 


DT70 = 


nTX?S 




073646 


0T407 




073256 


DT71 


U 1 JcO 




073646 


DT41 




073356 


DT72 = 


U 1 JC r 




073646 


DT410 


- 


073256 


DT73 


r>T^x 

U 1 J J 




073230 


DT411 




073206 


DT74 = 


U 1 J JV 




073646 


0T412 


- 


073206 


DT75 = 


L/ 1 J J 1 




073646 


DT413 


- 


073256 


DT76 = 


U 1 jjC 




073646 


DT414 




073256 


DT77 = 


U 1 J JJ 




073646 


DT415 


= 


073206 


E«TVEC= 


U 1 J JS 




073646 


DT416 


= 


073206 


EMI 


W 1 J J J 




073646 


DT417 




073256 


EH1B 


f 1 J JO 




073646 


0T42 




073312 


EHIC 


f 1 J J f 




073646 


0T420 




073256 


EH10 


U 1 J** 




073256 


0T421 




073206 


EH10 






073646 


0T422 


~ 


073206 


EW100 


U 1 JH 1 




073646 


0T423 




073256 


EH101 


y 1 jHc 




073646 


0T424 




073256 


EH102 


U 1 J*» J 




073646 


DT425 




073206 


EH1028 






073646 


0T426 


- 


073206 


Em 03 


U 1 JH J 


z 


073646 


DT427 


- 


073256 


EH104 




z 


073646 


DT43 




073312 


EH105 


nTX^7 

U 1 JH f 


z 


073646 


0T430 




073256 


Ert106 


u 1 J J 


z 


073270 


DT431 




073256 


EMI 068 


V 1 J Jv 


z 


073646 


0T432 




073206 


E«107 


U 1 J J 1 


^ 


073256 


0T433 




073206 


E«11 




z 


073646 


0T434 


= 


073256 


Em 18 


U 1 J J J 


z 


073646 


0T435 


= 


073256 


EH110 


U 1 JJH 


z 


073646 


0T436 




073256 


Em 11 


U 1 J J J 


z 


073646 


0T437 




073206 


Em 12 


U 1 J JO 


z 


073142 


0T44 




073312 


EH113 


U 1 J J ' 


_ 


073164 


0T440 




073206 


EW1138 


0T36 




073230 


0T441 




074210 


EH114 


DT360 




073256 


or442 




074226 


EH115 


0T561 




073522 


0T443 




074226 


EW116 


0T362 




073756 
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073206 
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056102 


EMI 74 


057302 


073312 
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056116 


EMI 75 


057316 


073312 


E«1238 


056132 


EMI 76 


05733^ 


073356 


Em 24 


056142 


EMI 768 


057346 


073312 


Em 25 


056156 


EM177 


057354 


073312 


Em 26 


056172 


EM2 


052422 


073312 


E«127 


056206 


EM28 


052436 


073312 


EH1<'*7B 


056222 


EM20 


053166 


073256 


Em 3 


053036 


EM200 


057410 


073312 


Em3A 


053050 


EM200C 


057426 


073312 


Em 38 


053060 


EM201 


057463 


073270 


Em30 


056232 


EM202 


057534 


073270 


Em 31 


056246 


EM203 


057606 


073230 


Em 32 


056262 


EM204 


057730 


073270 


Em32B 


056276 


EM204C 


057746 


073206 


Em 33 


056307 


EM205 
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Em 34 


056322 
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060054 


073206 


Em 35 


056336 
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060126 


073206 


EW136 


056406 


EM21 
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073432 


EW137 


056422 


EM210 


060200 


073206 


Em 4 = 


053036 


EM211 


060252 


073466 


Em 40 


056436 


EM212 


060331 


073206 


Em 41 


056452 


EM213 


060402 


073142 


Em41C 


056472 


EM213C 


060460 


073256 


Em 42 


056510 


EM2130 


060470 


073466 


Em 43 


056524 


EM2U 


060513 


A A A A 9 A 

000030 


EW144 


056540 


EM2148 


060570 


052346 


Em 45 


056556 


EM215 


060600 


052362 


EH146 


056572 


EM216 


060735 


052373 


Em47 


056606 


EM217 


060750 


052412 


EW15 


053104 


EM22 = 


053204 


052761 


EW150 


056626 


EM220 


060770 


055516 


EH151 


056642 


EM221 


061004 


055532 


Em 52 


056656 


EM222 


061054 


055546 


Em 53 


056676 


EM223 


061070 


055562 


EW154 


056712 


EM224 


061110 


055571 


EMI 55 


056726 


EM225 


061124 


055604 


Em 56 


056746 


EM2258 


061136 


055620 


EMI 57 


056762 


EM226 


061147 


055634 


Em 578 


056776 


EM227 


061160 


055650 


Em 6 


AP9 4 4 M 

053116 


EM2278 


061172 


055660 


EMI 60 


057005 


EM23 


053216 


052774 


EMI 608 


057026 


EM238 


053230 


053012 


EMI 61 


057053 


EM230 


061211 


055674 


EMI 62 


057066 


EM2308 


061222 


055710 


EMI 628 


057102 


EM231 


061234 


055724 


EMI 63 


057112 


EM232 


061246 


055740 


EMI 64 


057126 


EM233 


061260 


055754 


EM165 


057156 


EM2338 


061272 


055764 


Enl66 




EM234 


061504 


056000 


EMI 67 


057206 


EM235 


061316 


056014 


EMI 7 


053142 


EM236 


061330 


056030 


EMI 78 


053154 


EM2368 


061342 


056044 


EMI 70 


057222 


EM237 


061355 


053024 


EMI 71 


057236 


EM24 


053243 
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EH240 


061366 


EM38 


052466 


EM346 


EH2A1 


061400 


EM30 


053334 


EM346C 


En241B 


061412 


EM300 


063065 


EM347 


EH2A2 


061425 


EM300C 


063110 


EH347a 


EH2A3 


061436 


EM301 


063162 


EH35 


EM2A4 


061450 


EH3018 


063174 


EM350 


EH2A4B 


061462 


EM302 


063207 


EH351 


E«245 


061474 


E«303 


063220 


EM352 


EM246 


061506 


EH304 


063232 


EM353 


En2A6B 


061544 


EH304C 


063246 


EH354 


EH247 


061557 


EM305 


063312 


EH355 


E«25 


053260 


EH305C 


063326 


EN356 


EH250 


061 570 


EH306 


063406 


EM356B 


EM250B 


061602 


EH307 


063514 


E«357 


EH251 


061615 


EH31 


053346 


EM36 


EH252 = 


061506 


EH318 


053360 


EH360 


E«252B 


061626 


EM310 


063564 


EM361 


EH253 


061642 


EH311 


063640 


EH362 


EM254 = 


061506 


EH312 


063710 


EH363 


EM254B 


061654 


EH313 


063760 


EM364 


E«255 


061672 


EH314 


064030 


EH365 


EH256 


061716 


EH315 


064100 


EM366 


En256B 


061730 


EH316 


064150 


EM367 


£H257 


061744 


EM317 


064220 


EM37 


E«26 


053272 


6«32 


053372 


EM370 


En268 


053304 


EH320 


064270 


EM371 


E«260 


061756 


E«321 


064340 


EH372 = 


En260B 


061770 


E«322 


064410 


EM373 = 


E«261 


062014 


En3226 


064422 


EH374 = 


E«262 


062026 


E«323 


064446 


EM375 = 


E«262B 


062101 


E«324 


064460 


EM376 = 


EH263 


062114 


E«325 


064472 


EM377 = 


E«263e 


062126 


EM325B 


064506 


EH4 


EH264 


062141 


EM325C 


064521 


EM4A 


EW264C 


062154 


E«326 = 


064472 


EW48 


E«265 


062226 


E«327 


064616 


EM4C 


EH265C 


062242 


E«33 


053410 


EM4D 


En266 


062277 


E«330 


064666 


EM40 


EHi67 


062353 


EH331 


064742 


EH400 = 


EH267C 


062366 


E«332 


065012 


EM401 


E«27 


053317 


EM3326 


065026 


En4016 


EH270 


062440 


En332C 


065041 


EH402 


EM270C 


062454 


En333 = 


064446 


EW403 


E«271 


062472 


En334 


065110 


En403B 


EM271C 


062506 


EM334C 


065124 


En403C 


EH272 


062531 


EM335 


065173 


EM404 


E«272C 


062544 


£«336 


065242 


EM405 


E«273 


062601 


EH336C 


065260 


EM406 


E«2736 


062612 


EH337 


065277 


EM407 


E«274 


062636 


EW34 


05342? 


EM41 = 


EH275 


062650 


E»1348 


053434 


EH410 


EW275B 


062720 


EH340 


065353 


EH411 


E«276 


062733 


EH341 


065422 


EM411B 


EH276C 


062746 


E«342 


065472 


EM412 


tn/f 1 


063020 






CM/ i < 


EW277C 


063034 


EH344 


065617 


EM414 


EH3 


052452 


E«345 


065^24 


En415 
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065774 


EM4 1 58 


070276 


EH6C 


052610 


066020 


EH416 


07031 1 


EM60 = 


054235 


066073 


EM417 


070322 


En606 


054632 


066104 


EM4178 


070334 


EH61 = 


054274 


053447 


EH42 = 


053476 


EH61B 


054712 


066117 


Eh428 


053616 


EM62 


054771 


066130 


EH420 


070366 


EM62A 


055010 


066232 


E«421 


070400 


EM628 


055020 


066302 


EH421B 


070412 


EH63 


AP P Ay Y 

055067 


066352 


EW422 


070425 


EM64 


055104 


066422 


EH423 


070436 


EM65 


055154 


066472 


EH424 


070450 


EH66 


055200 


066526 


EH425 


AY A y y ^ 

070462 

A YA / Y y 

070474 

A 9 A f A ^ 

070506 


EM66B 


AP C A 

055220 


066576 


En425B 


EM67 


AP p ^ ^y 

055226 


053464 


En426 


EM7 


AP *^ Y W 

052737 


066632 


EM427 


A YA f A 

070520 


EH7B 


AP t YP y 

052756 


066722 


EW43 = 


A r V a* p y 

053556 


YA 

EM70 


APP'V4 a 

055310 


066740 


EH43B 


A r Vy P *^ 

053652 


EM71 


AP P W Y 

055333 


067050 


EH430 


A YAP Y^ 

070572 


EM72 


AP P Y P A 

055350 


067116 


EM431 


A YAy A / 

070604 


^ M Y9 

EM73 


AP P Yy y 

055364 


067216 


EH432 


A YA^ Y '> 

070632 


^ M Yy 

EM74 


AC c y A A 

055400 


067301 


EM4328 


AYAy y y 

070644 


PMYC 

EM75 


Acc y 4 y 

055414 


067364 


Em33 


A YA^ C Y 

070657 


r M YZ 

EH76 


ACC y YA 

055430 


Af 9 / ^y 

053476 


EH434 


AYAy YA 

070670 


EM76A 


AP p y y y 

055444 


067447 


EW435 


AYA Yy A 

070740 


EM76fl 


AC c y C Y 

055453 


A^ "ym V 

067503 


EM436 


A YA Yf ^ 

070752 


EM77 


AC CCA Y 

055503 


A A A A A A 

000000 


EH437 


AY4 AAA 

071000 


ENOTES 


Ay C Y Y^ 

045376 


A A A A A A 

000000 


EM44 = 


ap V y Yy 

053476 


ENOTST 


Ay 4 YYy 

041776 


A AAA A A 

000000 


EW448 


AC YY Y4 

053731 


EOASCI 


Ay Y4 Y*) 

0471 72 


A AAA AA 

000000 


y A 

Em40 


AY4 AO^ 

071022 


EPENDS 


Ay ^ 4 ^ y 

046164 


A AAA A A 

000000 


EM44l 


AY4 A y y 

071 044 


P AM4 a 

ERniO 


Ay YAYy 

047074 


A AAA A A 

000000 


En44iB 


AY4 4 AA 

071100 


ERRNUM 


AC 4 C Y^ 

051576 


052502 


EM442 = 


AY4 Ay t 

071044 


ERROR = 


« Ay AAA 

104000 


A r ^ r A 

052520 


Em426 


AY4 4 y Y 

071147 


ERRVEC* 


AAAy\Ay 

000004 


052531 


EW443 = 


A Y4 A y y 

071044 


ERTVPC 


AC 4 4 C ^ 

051152 


052543 


EM444 


A Y4 4 Y4 

071171 


ERT1 


AC 4 Y y y 

051346 


052552 


EM45 = 


AC Yy Y^ 

053476 


ERT2 


AC 4 c y 

051546 


053556 


EM45B 


ACy AAy 

054006 


r A V Y 

ERT3 


AC 4 CC 

051552 


A aA AA A 

000000 


EM46 = 


AC YC 

053556 


ERT4 


AP 4 p y A 

051560 


067633 


Em68 


AC y A/ i 

054041 


r A T C 

ERT5 


AC < C Y'i 

051572 


067644 


Em7 = 


ACT/ 

053476 


P W A/* ▼ 

EXPCTO 


Ay c Y Yy 

045374 


Ay ^y c e 

067655 


Yn 

EW478 


AC / 4 1 y 

054114 


P A 1 T AA 

FALTRP 


Ay y 

044006 


067666 


EMS 


AC ^C y Y 

052563 


FPSPUR 


AC 4 YY ^ 

051732 


A y y y 

067746 


EH50 = 


AC Y y Y^ 

053476 


FPVECT= 


000244 


A ^A A/^ f 

070005 


t:M506 


054156 


GTSUR s 


« Ay / AC 

104403 


070016 


EM51 


AC y ^ YC 

054235 


HT = 


AAAAi 1 

00001 1 


A "VAA 9 A 

070030 


EM52 


AC y ^Yy 

054274 


IBKOUT 


Acy y z 1 

054462 


070044 


EM53 = 


ACy ^Y/ 

054274 


IBSAVE 


A/ ^ C i 

046512 


A "» A A y A 

070060 


EM54 = 


AC y YC 

054235 


t ^ aa it 

ICOUT 


Ax c 7y X 

065346 


AC 9r r y 

053556 


EM548 


AC y Y YZ 

054336 


IDOfK 


Ay '^Ai A 

042010 


A^A 4 9 A 

070130 


EM55 = 


AC y YC 

054235 




AC / "i"? A 

054250 










\fjjf cH 


070156 


EM56 = 


054274 


IFD 


052650 


070170 


EM568 


054473 


IFDST 


055062 


070202 


EM57 = 


054274 


IFIC 


064736 


070252 


EM578 


054546 


IFIU 


063634 


070264 


EM6 


052574 


IFIUV 


060506 
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IFIV 


0SA626 


N1 


052721 


SW03 = 


000010 


IFL 


062076 


N10 


071165 


swo^ - 


000020 


I FLAG 


054 764 


N2 


052723 


SW05 = 


J00040 


IGR7FL 


067736 


N244 


071142 


SU06 = 


000100 


INBIT 


065612 


n3 


052725 


SW07 = 


000200 


INSTOF 


052702 


N3132 


060316 


SW08 = 


000400 


I0P1B 


057723 


N4 


052727 


SW09 = 


001000 


IOTRAP= 


000020 


N5 


052731 


SW1 = 


000002 


IOTVEC= 


000020 


N6 


052733 


SWIO = 


002000 


IXNBT 


0623A6 


N7 


052735 


SW11 = 


004000 


KDPARO= 


1 72360 


N746T2 


06062<. 


SW12 = 


010000 


KDPAR1= 


172362 


N747T2 


061030 


SU13 = 


020000 




1 72364 


OR 


057716 


SU14 s 


040000 


tCDPAR3= 


1 72366 


PASCIZ 


051600 


SU15 = 


100000 


tCDPAR4= 


172370 


PCBAD 


060647 


SW2 = 


000004 


KDPAR7= 


1 72376 


PERIOD 


060711 


SU3 = 


000010 


tCDPDRO= 


172320 


PIRO = 


M7772 


SW4 = 


000020 


tCDPDR1 = 


1 72Z22 


PIROVE= 


000240 


SW5 = 


000040 


KDP0R2= 


1 72324 


POUERH 


052120 


SW6 = 


000100 


KDPDR3= 


1 72326 


PR06NU= 


000003 


SW7 = 


000200 


KDPORA= 


1 72330 


PRST 


052662 


SU8 = 


000400 


ICDPDR7= 


1 72336 


PRO = 


000000 


SW9 = 


001000 


ICIPAR0= 


172340 


PR1 = 


000040 


TAB = 


00001 1 


ICIPAR1 = 


172342 


PR2 = 


000100 


TB1TVE= 


000014 


KIPAR2= 


1 72344 


PR3 = 


000140 


TKVEC = 


000060 


KIPAR3= 


1 72346 


PR4 = 


000200 


TPVEC = 


000064 


K1PAR4= 


172350 


PR5 - 


000240 


TRAPTO 


071112 


K I PAR 7= 


172356 


PR6 = 


000300 


TRAPV 


041714 


KIPORO= 


172300 


PR7 = 


000340 


TRAPVEs 


000034 


HIPDR1= 


1 72302 


PS = 


1 77776 


TRPV 


044054 


•CIP0R2= 


172304 


PSW = 


y77776 


TRTVEC= 


000014 


iClPDR3= 


1 72306 


PWRVEC= 


000024 


TSTl 


006764 


K1P[)M= 


172310 


RDCHR = 


104407 


TSTIO 


011360 


K1PDR7= 


172316 


RESREG= 


104411 


TSTIOO 


041302 


LABELl 


042674 


RESVEC= 


000010 


TST101 


041430 


LF = 


000012 


RETURN 


045166 


TST102 


041446 


LOOP 


006764 


RSETUP= 


104412 


TST103 


041524 


nnRO = 


177572 


RTI 


045210 


TST104 


041602 


HHR2 = 


177576 


R6 =1000006 


TST105 


042446 


WW3 = 


172516 


R7 =1000007 


TST106 


042542 


tWVECT= 


000250 


SAVIOT 


042426 


TST107 


042650 


HNUnSE: 


000444 


SAVREG^ 


104410 


TST11 


011620 


N0DE1 


042556 


SCOPE = 


000004 


TST110 


042764 


RSI 


052171 


SETERL 


042430 


TSTlll 


043164 


HS10 = 


052231 


SPACE 


052164 


TST112 


043300 


HS11 


052271 


SRI = 


177574 


TST113 


043412 


HS2 


052207 


STACK = 


001100 


TST114 


043606 


HS20 


052314 


START 


006116 


TST115 


045420 


HS21 


052326 


STCSUB 


037110 


TST12 


012076 


HS3 


052231 


STXL«T= 


177774 


TST13 


012756 


HSA 


052247 


STORE 


045232 


TST14 


013636 


HULTER 


045104 


SUR 


001140 


TST15 


013742 


NEGDAR 


061041 


SUREG 


000176 


TST16 


014160 


NEGONR 


060635 


SWO = 


000001 


TST17 


014264 


NOOAT 


045216 


SUOO = 


000001 


TST2 


007130 


NO 


052717 


SWOl = 


000002 


TST20 


014372 


N04 


071162 


SU02 = 


000004 


TST21 


014614 
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TST22 


015110 


SAPTHD 


006102 


TST23 


015404 


SATVC 


050014 


TST24 


015700 


SAT VI 


047770 


TST25 


016204 


$ATV3 


01*7776 


TST26 


016510 


$ATY4 


050006 


TST27 


017010 


SAUTOB 


001134 


TST3 


007374 


S6ASE 


001372 


TST30 


017316 


S6DA0R 


001122 


TST31 


017564 


S8DDAT 


001126 


TST32 


020042 


S6ELL 


001306 


TST33 


020250 


SCDUl 


001376 


TST34 


020464 


SC0W2 


001400 


TST35 


020700 


SCHARC 


047530 


TST36 


021126 


SCKSWR 


050236 


TST37 


021352 


SCLR.T 


046074 


TST4 


007766 


SCMTAG 


001100 


TST40 


021600 


$C«1 = 


000024 


TST41 


022014 


$C«2 = 


000050 


TST42 


022246 


$CH3 = 


000024 


TST43 


022514 


$CH4 = 


000024 


TST44 


022772 


SCNTLG 


050655 


TST45 


024320 


SCNTLU 


050650 


TST46 


024502 


SCPUOP 


001344 


TST47 


024664 


SCRLF 


001313 


TST5 


010314 


$DDWO 


001402 


TST50 


025064 


SODUl 


001404 


TST51 


025300 


SDDW10 


001426 


TST52 


025506 


S0DU11 


001430 


TST53 


025730 


$DDW12 


001432 


TST54 


026166 


$0DW13 


001434 


TST55 


026306 


$DDW14 


001436 


TST56 


026450 


SDDWI 5 


001440 


TST57 


030142 


$0DW2 


001406 


TST6 


010630 


$DDW3 


001410 


TST60 


031230 


$DDW4 


001412 


TST61 


033176 


$D0U5 


001414 


TST62 


033434 


SD0W6 


001416 


TST63 


033672 


SDDW7 


001420 


TST64 


034130 


SDDW8 


001422 


TST65 


034376 


SDDU9 


001424 


TST66 


034646 


SDEVCT 


001326 


TST67 


035124 


SDEVn 


001374 


TST7 


011104 


SDISAB 


046024 


TST70 


035414 


SDOAGN 


046114 


TST71 


035524 


SENDAO 


046104 


TST72 


035634 


fENDCT 


045464 


TST73 


037402 


SENULL 


046160 


TST74 


037456 


$ENV 


001 336 


TST75 


040416 


$ENvn 


001337 


TST76 


041104 


$EOP 


045420 


TST77 


041160 


SEOPCT 


045452 


TYPE = 


i A/ y A4 

104401 


# PAP 1 ^ 

SERFLG 


AA1 1 AT 

001103 


TTPOC = 


104402 


SERMAX 


001115 


TYPON = 


104404 


SERROR 


046514 


TYPOS = 


104403 


SERRPC 


001116 


WENTTO 


052670 


SERRTB 


001442 


UUCDON 


037400 


SERTiL 


001112 
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SESCAP 


001304 




$MA«S3 


001356 


SREGO 


001162 


t£TAfiL 


001336 




t«A«S4 


001362 


SREGI 


001164 


t€TEND 


00U42 




MBADR 


006104 


$REG10 


001202 


»FATAL 


001320 




SMFLG 


050232 


SREG11 


001204 


tFFLG 


050234 




SMNEU 


050673 


$REG12 


001206 


tFlLLC 


001156 




SnSGAD 


001332 


SREG13 


001210 


IF ILLS 


001155 




SnSGLG 


001334 


SREGU 


001212 


SGDAOR 


001120 




WSGTY 


001316 


$REG15 


001214 


SGODAT 


001124 




SMSUR 


050662 


$REG16 


001216 


KET42 


045744 




WTYP1 


001347 


SREG17 


001220 


tGTSU5t 


050306 




$HTYP2 


001353 


SRE62 


001166 


SGTA2C 


046056 




WTYP3 


001357 


SREG20 


001222 


SHD = 


000003 




WTVP4 


001363 


SRE621 


001224 


tHlBTS 


006102 




SMXCNT 


046510 


$RE622 


001226 


SICNT 


001104 




SNULL 


001154 


$RE623 


001230 


SILLUP 


051144 




$NWTST= 


000001 


SRE63 


001170 


tINTAG 


001135 




SOCNT 


047764 


$RE64 


001172 


SITEMB 


001114 




sonoDE 


047766 


SRE65 


001174 


SLF 


001314 




SOVER 


046472 


$REG6 


001 1 76 


ILFLG 


050233 




SPASS 


001324 


$RE67 


001200 


»L0OP 


046152 




$PASS2 


046166 


SRESRE 


047134 


SLPAOR 


001106 




$PASTM 


006110 


SRTNAD 


046154 


(LPERR 


001110 




SPWRAO 


051126 


SRTRN 


046150 


SHAORI 


001350 




SPWRDN 


050766 


SSAVRE 


047076 


MA0R2 


001354 




SPWRHG 


051122 


$SAVR6 


051150 


M^R3 


001360 




SPWRUP 


051040 


SSCOPE 


0461 70 


VW>M 


001364 




SQUES 


001312 


$SETUP= 


000137 




001 

VV 1 ^ 1 V 




SRDfHR 


050520 




^77777 


SHAMS 1 


001346 




SRDSZ = 


000001 


SSVLAD 


046436 


SnAMS2 


001352 




SREGAD 


001160 


SSVPC = 


006102 


. ABS. 


074240 


000 












000000 


001 
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ERRORS DETECTED: 0 

VIRTUAL nenORY USED: 60768 WORDS ( 238 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:17:12 

CICFPCD.BIN,CICFPCD/CR/-SP/NL:T0C=CICFPCD.HL8/HL.CKFPCD.P11 



$SUR = 


177400 


$TMP7 


001250 


SSUREG 


001340 


SIN = 


000115 


$SWRMK= 


000000 


STPB 


001152 


$SWRMS= 


000200 


STPFLG 


001157 


STAB 


052167 


STPS 


001150 


STBIT 


046156 


STRAP 


050704 


STERM = 


000026 


$TRAP2 


050726 


STESTN 


001322 


STRP = 


00001 3 


STIMES 


001302 


STRPAO 


050740 


STKB 


001146 


STSTM 


006106 


STKS 


001144 


STSTNM 


001102 


STMPO 


001232 


STVPE 


047174 


STMP1 


001234 


STYPEC 


047412 


STMPIO 


001252 


STYPEX 


047532 


STMP11 


001254 


STYPOC 


047560 


$TMP12 


001256 


STYPON 


047574 


$TMP13 


001260 


STYPOS 


047534 


STHPU 


001262 


SUNIT 


001330 


STMP15 


001264 


SUNITM 


006112 


STMP16 


001266 


SUSWR 


001342 


STMP17 


001270 


SVECTI 


001366 


STMP2 


001236 


SVECT2 


001370 


STMP20 


001272 


SXOFF = 


000023 


STMP21 


001274 


SXON = 


000021 


STMP22 


001276 


SXTSTR 


046202 


STMP23 


001300 


SSGEr4= 


000001 


STHP3 


001240 


SOFILL 


047765 


STnP4 


001242 


.RSET 


052050 


STMP5 


001244 


.$X = 


006102 


STMP6 


001246 







